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

Question

Информатика

Амос

21 марта, 09:03

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

+1

Ответы (2)

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

Игнат · Answer 1

Var

a: integer;

begin

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

read (a) ;

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

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

end.

Оляня · Answer 2

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