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

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

Задать свой вопрос
1 ответ
//PascalABC.NET
var
x,y:integer;
begin
readln(x,y);
if x = y then begin
x:=1;
y:=1;
end
else
if x lt; y then
y:=x
else x:=y;
writeln(x,' ',y);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт