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

Question

Информатика

Викторыч

24 ноября, 08:15

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

+5

Ответы (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.