pascal

Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.

Question

Информатика

Вака

2 февраля, 05:29

pascal

Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.

+5

Ответы (2)

Знаете ответ?

Геновефа · Answer 1

Var a, b, c:integer;

Begin

readln (a, b) ;

If a>b then b:=b*2

else

If a
writeln (a,' ', b)

end.

Геннаша · Answer 2

Program sum;

uses crt;

var

a, b:real;

begin

writeln ('Введите число А:') ;

read (a) ;

writeln ('Введите число B:') ;

read (b) ;

if (a>b) then a:=a*2 else b:=b*2;

writeln ('Числа после измения а=', a,' b=', b) ;

end.

pascalМеньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.

pascal

Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.