Question

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

Answer 1

Ответ:

Begin

Read(a);

Sum:=45;

I:=45;

While i>a do

Begin

I:=i-3;

Sum:=sum+i;

End;

Write(sum);

End.

Объяснение:

Answer 2

38
162- вместо 126

Answer 3

Там, скорее всего, в сумме не 45, а 9. У меня так вышло 126 :D

Answer 4

Ответ:

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

var  

Sum, I : integer;

Sum := 0;

I := 45;

While I >= M do

begin

Sum := Sum + I;

I := I - 3;

end;

Writeln(Sum);

end.

Объяснение:

Answer 5

Program1.pas(12) : Встречено 'While', а ожидался идентификатор