Помогите решить, пожалуйста. Составить блок-схему.Сравнить между собой значение величин х и у. Вывести на печать результат сравнения в виде "x>y" или "x=y".
Answers & Comments
IDimonI
Var x,y:integer; begin writeln('Введите х и у'); readln(x,y); if x>y then writeln(x,'>',y); if x<y then writeln(x,'<',y); if x=y then writeln(x,'=',y); end.
Answers & Comments
x,y:integer;
begin
writeln('Введите х и у');
readln(x,y);
if x>y then writeln(x,'>',y);
if x<y then writeln(x,'<',y);
if x=y then writeln(x,'=',y);
end.