Регистрация
jookyun
26.10.2020 17:23
Информатика
Есть ответ 👍

Составить разветляющий алгоритм с стихов белоруских писателей​

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

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

romandichii1
romandichii1
4,7(100 оценок)

var s,i: integer;

begin

for i: =100 to 999 do

begin

if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)< > 0)

  then writeln (i);

s: =s+i;

end;

writeln (s,' сумма всех таких чисел');

end.

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