Как сложить и вычесть числа в десятичной системе счисления?
Ответы
Да согласен просто сложить может быть
Просто сложить : 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Разобраться в . наглядно покажите ответ.
Автор: nekarpova
Программа tux paint тебе инструменты для рисования можно выбрать на
Автор: drontox1031
