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.

Answer 2

Конечно, вот примеры программ на языке Паскаль для выполнения данных заданий с использованием цикла while:

Задание 3: Вывести на экран в столбик 12 раз слово "Весна":

pascalCopy code
program Task3;
var
  count: Integer;
begin
  count := 1;
  while count <= 12 do
  begin
    writeln('Весна');
    count := count + 1;
  end;
end.

Задание 4: Ввести натуральное число N и вывести кубы всех чисел от 1 до N:

pascalCopy code
program Task4;
var
  N, num: Integer;
begin
  write('Введите натуральное число N: ');
  readln(N);

  num := 1;
  while num <= N do
  begin
    writeln('Куб числа ', num, ' = ', num * num * num);
    num := num + 1;
  end;
end.

Задание 5: Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b:

pascalCopy code
program Task5;
var
  a, b, num: Integer;
begin
  write('Введите два целых числа (a и b, a <= b): ');
  readln(a, b);

  num := a;
  while num <= b do
  begin
    writeln(num, '*', num, '=', num * num);
    num := num + 1;
  end;
end.

Просто скопируйте соответствующий код в среду программирования на Паскале или используйте тетрадь для выполнения заданий.