Написать программу в паскале для возведения в квадрат если число меньше 3, и деление данного числа на 2 если число больше 5

Question

Варюша

16 июня, 18:01

+5

Ответы (1)

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

Ангелинка · Answer 1

Program zadacha;

var a, s:real;

begin

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

readln (a) ;

if a<3 then s:=a*a;

if a>5 then s:=a/2;

writeln (s:2:1) ;

end.