Регистрация
anncopper
22.11.2022 02:41
Информатика
Есть ответ 👍

Составьте программу нахождения суммы всех четных чисел от 10 до 100. 1 )использовать цикл с предусловием. 2 )использовать цикл с постусловием. 3 )использовать цикл с параметром.

290
479
Посмотреть ответы 2

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

anuaraminov10ozppq2
anuaraminov10ozppq2
4,8(16 оценок)
Var    i: byte; begin  i : = 10;   while i < = 100 do  begin    if not odd(i) then      write(i, ' ');     inc(i);   end;   writeln;   i : = 10;   repeat    if not odd(i) then      write(i, ' ');     inc(i);   until i = 101;   writeln;   for i : = 10 to 100 do    if not odd(i) then      write(i, ' '); end.
natashakuznecz1
natashakuznecz1
4,5(52 оценок)
Program asd; uses crt; const d=2.54; var  i: integer; begin for i: =10 to 22 do   begin  writeln(' ',i,' * ',d,' = ',i*d: 2: 1);   end; end.

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