Question

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

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.

Вот так =)