
Myuomega
5 год назад
Проходим цикл с предусловием. Нужно составить в Pascal 2 программы.1) Дано натуральное число n. Написать программу для вычисления суммы членов последовательности 10,15,20...n2) Вывести степени двойки от 1 до n.
ОТВЕТЫ

Макар
Oct 24, 2020
1)
var a,n,sum:integer;
begin
read(n);
a:=10;
sum:=0;
while(a <> n)
begin
sum := sum + a;
a := a+5;
end;
end.
2)
var n:integer;
begin
read(n);
for var i := 1 to n do writeln(power(2,i));
end.
ПаскальАБС.Нет - версия Паскаля, нужен фраемфорк .нет в Паскале, если не работает - обнови паскаль
var a,n,sum:integer;
begin
read(n);
a:=10;
sum:=0;
while(a <> n)
begin
sum := sum + a;
a := a+5;
end;
end.
2)
var n:integer;
begin
read(n);
for var i := 1 to n do writeln(power(2,i));
end.
ПаскальАБС.Нет - версия Паскаля, нужен фраемфорк .нет в Паскале, если не работает - обнови паскаль
657
Смежные вопросы: