Посчитать сумму чётных чисел от 1 до 10 в паскале​

Karinavalitova1 Karinavalitova1    3   07.10.2019 16:10    7

Ответы
rustik1619 rustik1619  10.10.2020 01:55

Program n_1;

var i, s:integer;

begin

   s:=0;

   for i:=1 to 10 do if i mod 2 = 0 then s:=s+i;

   writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика