A,B целое A=B, y=1 A больше B,y=2 A меньше B, y=3 сделать программу
A,B целое
A=B, y=1
A>B,y=2
A
Гость
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,y:integer;
begin
writeln('Введите 2 числа a и b'); readln(a,b);
if a=b
then y:=1
else if a>b
then y:=2
else y:=3;
writeln('y= ', y);
end.
Не нашли ответ?
Похожие вопросы