Предмет: Информатика, автор: viktordidi

С помощью "пока" цикла найти сумму четных чисел от 2 до 100 pascal

Ответы

Автор ответа: restIess
0

var

_sum, i : integer;

begin

_sum := 0;

i := 2;

while (i <= 100) do

begin

_sum := _sum + i;

i := i + 2;

end;

writeln(_sum);

end.

Похожие вопросы
Предмет: Русский язык, автор: Аноним