Question

Задача на паскале. Напиши программу, которая вводит с клавиатуры натуральное число С и выводит на экран в столбик квадраты всех чётных натуральных чисел от С до 1.

Answer 1

===== PascalABC.NET =====

begin

 var C := ReadInteger('Введите натуральное число:');

 if C.IsOdd then

   C -= 1;

 Range(C, 2, -2).PrintLines

end.

Answer 2

Для решения данной задачи на языке Pascal, вы можете использовать следующий код:

pascalCopy code
program SquaresOfEvenNumbers;

var
  C, i: Integer;

begin
  Write('Введите натуральное число C: ');
  Readln(C);

  if (C < 1) then
    Writeln('C должно быть натуральным числом')
  else
  begin
    Writeln('Квадраты чётных натуральных чисел от ', C, ' до 1:');
    for i := C downto 1 do
    begin
      if i mod 2 = 0 then
        Writeln(i * i);
    end;
  end;

  Readln;
end.

Эта программа сначала запрашивает у пользователя натуральное число C, затем проверяет, что C действительно больше или равно 1. Если C не удовлетворяет этому условию, программа выдаст сообщение об ошибке. В противном случае программа выведет квадраты всех чётных натуральных чисел от C до 1 в столбике.