Question

Расставьте строки программы в правильном порядке, чтобы получилась программа, которая находит квадрат числа, если введённое число не отрицательное. Writeln (a); End. Var a: real; A:=sqr(a); Readln(a); a>=0 then if program primer; begin​

Answer 1

Ответ:

program primer;

Var a: real;

begin

Readln(a);

if a>=0 then A:=sqr(a);

Writeln (a);

End.

Объяснение:

Answer 2

Ваш запрос немного непонятен, но я предполагаю, что вы хотите написать программу на Pascal, которая будет вычислять квадрат числа, если введенное число не отрицательное. Вот правильно упорядоченная программа на Pascal:

pascalCopy code
program primer;
Var
  a: real;
begin
  Write('Введите число: ');
  Readln(a);

  if a >= 0 then
  begin
    a := sqr(a);
    Writeln('Квадрат числа: ', a);
  end
  else
    Writeln('Введенное число отрицательное, квадрат невозможно вычислить.');

  Readln;
end.

Эта программа позволяет пользователю ввести число, проверяет, является ли оно неотрицательным, и если да, то вычисляет его квадрат и выводит результат на экран. Если введенное число отрицательное, программа выдаст соответствующее сообщение.