Question

Написать в Паскале (или в тетради) программы к заданиям. Использовать в цикле только оператор While.

«3»: Вывести на экран в столбик 12 раз слово «Весна».

«4»:Ввести натуральное число N и вывести кубы всех чисел от 1 до этого числа.

«5»: Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25

Answer 1

Ответ:

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.