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

Question

Надюра

29 ноября, 23:28

+1

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