Предмет: Информатика,
автор: AnastaAnastasi
ЗАДАНИЕ НА ПАСКАЛЕ: написать программу и найти сумму целых чисел от 40 до 120, кратных 11
Ответы
Автор ответа:
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.
AnastaAnastasi:
Извините, можно как-то по другому написать, у меня другая Паскаль, нету таких команд. 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.
var i,s:integer;
begin
s:=0;
i:=0;
for i:=40 to 120 do
begin
s:=s+i;
end;
writeln(s);
end.
Автор ответа:
1
Ответ:
Объяснение:
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.
Спасибо большое)
это не кратных,ща допишу
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.
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.
Спасииибо)
Похожие вопросы
Предмет: Другие предметы,
автор: Анастасийка674
Предмет: Русский язык,
автор: chrizo
Предмет: Русский язык,
автор: неизвестные
Предмет: Физика,
автор: nikitos25112002
Предмет: Алгебра,
автор: 8lilishka8