Как сложить и вычесть числа в десятичной системе счисления?
Ответы
Да согласен просто сложить может быть
Просто сложить : d или вас учат в школе с первого класса в другой сс считать?
Var a: array[1..100] of integer; n, i: byte; p: longint; begin readln(n); p : = 1; for i : = 1 to n do begin write('a[', i, '] = '); readln(a[i]); p : = p * a[i]; end; writeln(p); end.
Var i, k,n, max: integer; f: boolean; begin readln(k); for i : = 1 to k do begin readln(n); if (i = 1) or (max < n) then max : = n; f: =f or (n=0); end; writeln(max,' ', f); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Придумать и оформить на листе бумаги 3-5 заданий для черного ящика
Автор: elbabitch2014
Хоть задание и легкёе все подробно объяснить
Автор: N-odes-art-school410
"Операция над фрагментом текста с целью его последующего использования." 9 букв, "н" - 7 буква
Автор: Golubovskayairina
