Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны, то умножить их на 1000.

Пример: 8,7 результат 80,70

-2,3 результат-200,300

Question

Информатика

Шломит

14 декабря, 11:37

Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны, то умножить их на 1000.

Пример: 8,7 результат 80,70

-2,3 результат-200,300

+2

Ответы (1)

Знаете ответ на вопрос?

Асмара · Answer 1

Program n_1;

var m, k: integer;

begin

if (m>0) and (k>0) then

begin

m:=m*10;

k:=k*10;

end;

if ((m>0) and (k<0)) or ((m0) then

begin

m:=m*100;

k:=k*100;

end;

if (m<0) and (k<0) then

begin

m:=m*1000;

k:=k*1000;

end;

writeln (m) ;

writeln (k) ;

end.