Регистрация
You666
16.02.2023 08:20
Информатика
Есть ответ 👍

Программалау жүйесі деген не?
Помагите

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

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

urbutite71
urbutite71
4,4(43 оценок)
Var i,k: integer; begin k: =0; writeln('chetnue chisla < 100'); for i: =100 downto 1 do begin if((i mod 2)=0) then begin write(' ',i); k: =k+i; end; end; writeln; writeln('suma chetnux chisel',k); end.

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