Question

ЗАДАНИЕ НА ПАСКАЛЕ: написать программу и найти сумму целых чисел от 40 до 120, кратных 11

Answer 1

Ответ:

PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1

begin

   Range(40, 120).Where(p -> p mod 11 = 0).Sum.Println;

end.

Answer 2

Может просто не стоит использовать компиляторы, использующие диалект, поддержка которого прекращена более 10 лет назад?

Answer 3

Ответ:

Объяснение:

program sum;

var i,s:integer;

begin

 s:=0;

 i:=0;

 for i:=40 to 120 do

 begin

     s:=s+i;

 end;

writeln(s);

end.