Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти значение Y, которое равно квадрату заданного числа Х, если Х>2, и равно 4 в остальных случаях.

Ответ оставил Гость

Program programma;
Uses crt;

var y,x: integer;

Begin clrscr;
write(Введите х = );
readln(x);

if x>2 then y:=sqr(x)
else y:=4;

writeln(Y = , y);
end.