Информатика, опубликовано 2018-08-22 17:45:20 by Гость
Из n введенных чисел найти сумму квадратов положительных чисел произведения отрицательных и подсчитать нулевые
Ответ оставил Гость
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 end
else writeln(ИТОГ);
writeln( Сумма положительных: , sum, | Произведение отрицательных: , p);
writeln();
until n = 0000;
end.
Вроде так
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на