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

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

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

Question

Информатика

Кинанат

28 ноября, 09:14

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

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

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

+1

Ответы (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.