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

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.

Comments

Извините, можно как-то по другому написать, у меня другая Паскаль, нету таких команд. Pascal N-IDE

---

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

---

Я просто не могу скачать PascalABC.NET, ибо комп стар, ни в какую не качает, а в телефоне нету, да и мало памяти

---

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.

Answer 2

Ответ:

Объяснение:

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.

Comments

Спасибо большое)

---

это не кратных,ща допишу

---

program sum;
var i,s:integer;
begin
s:=0;
i:=40;
for i:=40 to 120 do
begin
if(i mod 11=0)then
s:=s+i;
end;
writeln(s);
end.

---

Спасииибо)