Решить задачу ** PASCAL Дано число x. Если x больше 5, то надо умножить x ** 2. Результат...

Question

Решить задачу на PASCAL Дано число x. Если x больше 5, то надо умножить x на 2. Результат вывести на экран.

Answer 1

Program z5;

Var x:integer;

Begin

write('Введите число - '); readln(x);

if (x > 5) then write(x*2)  

else write(x);

End.

Comments

Program z5; Var x:integer;Begin write('Введите число - '); readln(x); if (x > 5) then write(x*2) else write(x);End.

Answer 2

write('Введите число - '); readln(x);

if (x > 5) then write(x*2)  

else write(x);