Составьте программу вычисляющую сумму s=2+4++20 в pascal,

zadoroznaa2001 zadoroznaa2001    2   06.10.2019 23:50    2

Ответы
бекзат2008 бекзат2008  27.08.2020 14:18

program summa;

var

 s, i: integer;

begin

 for i := 2 to 20 do

   if i mod 2 = 0 then

     S := S + i;

 writeln('Сумма = ',s);

end.

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