Question

ПАСКАЛЬ !!!! Составить программу для решения задачи: даны два числа
x,y. Присвоить m значение 1, если x<у, и -1 если х≤у

Answer 1

Ответ:

program abc;
var x, y, m : integer;

begin
writeln('Введите X');
readln(x);
writeln('Отлично, введите Y');
readln(y);
if x<y then
m:=1;
writeln('Значение M = ', m);
if x=y then
m:=-1;
writeln('Значение M = ', m);
end.