Дано натуральное число, если оно больше 5, то возведите в квадрат, если нет, то пусть на экране появится надпись ошибка ввода

Question

Информатика

Амос

31 мая, 04:48

Дано натуральное число, если оно больше 5, то возведите в квадрат, если нет, то пусть на экране появится надпись ошибка ввода

+4

Ответы (2)

Знаете ответ на вопрос?

Оляня · Answer 1

var a:integer;

begin

write ('a = ') ;

readln (a) ;

if a>5 then writeln (a,'^2 = ', a*a)

else writeln ('Ошибка ввода') ;

end.

Пример:

a = 9

9^2 = 81

Игнат · Answer 2

Var

a: integer;

begin

write ('Введите число: ') ;

read (a) ;

if (a > 5) then a : = a * a

else write ('ошибка ввода') ;

end.