Дано естественное число M. Написать программку для вычисления суммы вида: 45+42+39+...+M.

Ответ:

Ну, вот на Pascal написал. Вроде так...

var  

Sum, I : integer;

Sum := 0;

I := 45;

While I gt;= M do

begin

Sum := Sum + I;

I := I - 3;

end;

Writeln(Sum);

end.

Изъясненье:

Ответ:

Begin

Read(a);

Sum:=45;

I:=45;

While igt;a do

Begin

I:=i-3;

Sum:=sum+i;

End;

Write(sum);

End.

Изъяснение: