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

Составить блок-схему алгоритма и программу замены целых чисел x,y единицей, если они равны между собой и меньшим из них, если они не равны

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

//PascalABC.NET
var
x,y:integer;
begin
readln(x,y);
if x = y then begin
x:=1;
y:=1;
end
else
if x < y then
y:=x
else x:=y;
writeln(x, ,y);
end.