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.

Объяснение: