Написать в Паскале (или в тетради) программы к заданиям. Использовать в цикле только оператор While.
«3»: Вывести на экран в столбик 12 раз слово «Весна».
«4»:Ввести натуральное число N и вывести кубы всех чисел от 1 до этого числа.
«5»: Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25
3)
var
a:integer;
begin
a:=0;
while a<12 do
begin
writeln ('Весна');
a:=a+1;
end;
end.
4)
var
a,n:integer;
begin
readln(n);
a:=1;
while a<n+1 do
begin
writeln (a*a*a);
a:=a+1;
end;
end.
5)
var
a,b:integer;
begin
readln(a,b);
while a<b+1 do
begin
writeln (a,'*',a,'=',sqr(a));
a:=a+1;
end;
end.