Есть ответ 👍

Программа pascal abc : введите 70 чисел, выведите сумму чисел из введённых меньших 100

113
223
Посмотреть ответы 2

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


var a,s: integer;

i: byte;

begin

for i: =1 to 70 do begin

readln(a);

if a < 100 then s: =s + a;

end;

writeln(s);

end.


ответ:
Сказать что попросил учителя перекинуть на почту и потом я скачал презентацию
:

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