Question

Написать программу на языке программирования Паскаль реализующую конструкцию IF THEN ELSE): 1) Вводится число 2) Если число меньше 3, то это число необходимо возвести в квадрат. 3) Если число больше либо равно 3 это число необходимо прибавить само к себе. 4) Вывести результат на экран.

Answer 1

var a:real;

BEGIN

readln(a);

if (a<3) then writeln(sqr(a)) else

writeln(2*a);

end.