pascal

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

Question

Информатика

Вака

4 марта, 14:38

pascal

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

+4

Ответы (2)

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

Геннаша · Answer 1

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.

Геновефа · Answer 2

Var a, b, c:integer;

Begin

readln (a, b) ;

If a>b then b:=b*2

else

If a
writeln (a,' ', b)

end.

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

pascal

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