Question

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

Answer 1

Ответ:

паскаль

Объяснение:

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.