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

Question

Филиппа

25 декабря, 07:08

+2

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