Какое современное средство записи информации обладает наибольшим объёмом памяти

235

357

Посмотреть ответы 1

Ответы на вопрос:

GEgor004

Информатика

4,5(3 оценок)

Var n, sum, p: integer; begin sum : = 0; p : = 1; repeat write('введите число для завершения программы введите 0000): '); readln(n); if n < > 0 then begin if n > = 0 then sum : = sum + n; if n < 0 then p : = p * n; end else writeln('итог'); writeln( 'сумма положительных: ', sum, ' | произведение отрицательных: ', p); writeln(); until n = 0000; end.вроде так