Некоторая вещь стоит A рублей и B копеек. Было куплено N таких вещей. Запишите общую стоимость покупки в рублях и копейках в переменные C1 и С2. Значения переменных A и N не превосходят 30000, а значение переменной B не превосходит 100. Переменные С1 и С2 имеют тип longint. Другие переменные не использовать.

Question

Информатика

Терентий

5 августа, 02:08

Некоторая вещь стоит A рублей и B копеек. Было куплено N таких вещей. Запишите общую стоимость покупки в рублях и копейках в переменные C1 и С2. Значения переменных A и N не превосходят 30000, а значение переменной B не превосходит 100. Переменные С1 и С2 имеют тип longint. Другие переменные не использовать.

+3

Ответы (1)

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

Мишаня · Answer 1

Var C2, C1: longint;

a, b, n: integer;

begin

readln (a, b, n) ;

b : = b + a * 100;

C1 : = b * n;

C2 : = C1 mod 100;

C1 : = C1 div 100;

writeln (C1, ',', C2) ;

end.

Вот так =)