Даны два числа а и в. Увеличить А в 5 раз,

Даны два числа а и в. Прирастить А в 5 раз, ели оно меньше В. Если В меньше А, то заменить В на значение А, а А на значение В.
Напишите программку на Pascal ABC пж.

Задать свой вопрос
1 ответ

var a,b,t:longint;

begin

readln(a,b);

if(alt;b) then a:=a*5 else if (blt;a) then begin t:=a; a:=b; b:=t; end;

writeln('a = ',a);

writeln('b = ', b);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт