Составить программку дозволяющую из двух данных чисел большее поменять двойным творением

Составить программку позволяющую из 2-ух данных чисел большее поменять удвоенным твореньем этих чисел ( паскаль,9 класс)

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

Var a, b:Integer ;

Begin

Write('a=') ;read(a) ;

Write ('b=') ;read(b) ;

If agt;b then a:=2*a*b;

If bgt;a then b:=2*a*b;

Write(' a=',a,' b=', b) ;

End.

Аделина Беренгштейн
Спасибо огромное,приду в школу и проверю)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт