Напечатать столбиком : a) все целые числа от 10 до 35; b) квадраты все целых чисел от 5 до n; c) третьи степени всех

а) program zz1;

var c:integer; // задаем переменную целого типа

begin

c:=10; // задаем начальное значение

while c <= 35 do // организуем цикл, пока переменная не достигнет последнего значения

begin

writeln(c);  // выводим ответ

c:=c + 1;

end;

end.

1. b) program zz1;

var c, n:integer; // задаем переменные целого типа

begin

read(n);

c:=5; // задаем начальное значение

while c <= n do // организуем цикл, пока переменная не достигнет последнего значения

begin

writeln(c*c);  // выводим ответ

c:=c + 1;

end;

end.

1. c) program zz1;

var a:integer; // задаем переменную целого типа

begin

read(a);

while a <= 50 do // организуем цикл, пока переменная не достигнет последнего значения

begin

writeln(a*a*a);  // выводим ответ

a:=a + 1;

end;

end.

1. d) program zz1;

var a, b:integer; // задаем переменные целого типа

begin

read(a, b);

while a <= b do // организуем цикл, пока переменная не достигнет последнего значения

begin

writeln(a);  // выводим ответ

a:=a + 1;

end;

end.