Регистрация
Gloriyaxx
26.10.2022 19:49
Информатика
Есть ответ 👍

"найти сумму всех положительных чисел вводимых с клавиатуры. если 0, то вывод на печать" программа паскаль

194
214
Посмотреть ответы 2

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

dartwaoder20hdhxgs
dartwaoder20hdhxgs
4,6(90 оценок)

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

 

EgorUmelii
EgorUmelii
4,7(83 оценок)
Ответ прост это график график

Популярно: Информатика