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

zentronys zentronys    1   06.07.2019 23:30    0

Ответы
Тупая6666 Тупая6666  02.10.2020 21:38
//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.
Составить блок-схему алгоритма и программу замены целых чисел x,y единицей, если они равны между соб
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика