Проходим цикл с предусловием. Нужно составить в Pascal 2 программы. 1) Дано натуральное...

Question

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

Comments

N кратное 5?

---

Об этом ничего не сказано.

Answer 1

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.


ПаскальАБС.Нет - версия Паскаля, нужен фраемфорк .нет в Паскале, если не работает - обнови паскаль