Регистрация
Войти
Стать экспертом Правила
Информатика

Написать текст программы _____________________

ОТВЕТЫ
Program n1;
var a,b: integer;
begin
readln(a,b);
if a>b then
begin
b:=a+b;
writeln(b);
end else if a<b then
begin
a:=a+b;
writeln(a);
end;
end.
478
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам