Задание по информатике
Запиши программу на языке Паскаль с использованием цикла с предусловием -
Найти сумму чётных первых ста натуральных чисел .​

grishinaanfisa grishinaanfisa    2   16.02.2020 17:20    0

Ответы
gptisveto gptisveto  03.09.2020 13:22

                                         PascalABC.NET

begin

 var (x,Sum):=(0,0);

 while x<100 do begin

   x+=2;

   Sum+=x;

   end;

 Writeln(Sum);

end.

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