Question

2. Написать в Паскале (или в тетради) программы к заданиям. Использовать в цикле только оператор 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

Программы на языке Паскаль для решения задач "3", "4" и "5" с использованием цикла "While" могут выглядеть следующим образом:

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

pascalCopy code
Program Task4;
var
  N, i: Integer;
begin
  write('Введите натуральное число N: ');
  readln(N);
  i := 1;
  while i <= N do
  begin
    writeln('Куб числа ', i, ' равен ', i * i * i);
    i := i + 1;
  end;
end.

pascalCopy code
Program Task5;
var
  a, b, i: Integer;
begin
  write('Введите два числа: ');
  readln(a, b);
  i := a;
  while i <= b do
  begin
    writeln('Квадрат числа ', i, ' равен ', i * i);
    i := i + 1;
  end;
end.

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

Answer 3

Конечно, вот решения задач "3", "4" и "5" на языке Pascal, используя только оператор while:

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

pascalCopy code
Program Task4;
var
  N, counter: integer;
begin
  write('Введите натуральное число N: ');
  readln(N);
  counter := 1;
  while counter <= N do
  begin
    writeln('Куб числа ', counter, ' = ', counter * counter * counter);
    counter := counter + 1;
  end;
end.

pascalCopy code
Program Task5;
var
  a, b, counter: integer;
begin
  write('Введите два числа: ');
  readln(a, b);
  counter := a;
  while counter <= b do
  begin
    writeln('Квадрат числа ', counter, ' = ', counter * counter);
    counter := counter + 1;
  end;
end.

Следует помнить, что в Pascal индексация начинается с 1, и вводимые числа должны быть целыми.