Помагите с домашним заданием.

АрзуНаз АрзуНаз    3   20.04.2020 06:10    0

Ответы
Johngear Johngear  13.10.2020 12:08

паскаль

Объяснение:

var

 n, i, s: integer;

begin

 Write('Введите число n >> ');

 ReadLn(n);

 i := 1;

 while i <= n do

 begin  

   s := s + i;

   i := i + 3;

 end;

 WriteLn('Сумма равна S= ', s);

end.

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