Помогите пожалуйста!!Единица товара стоит a рублей b копеек. Было куплено n штук этого товара. Сколько рублей и копеек пришлось заплатить за всю покупку? На вход программе подаются три целых числа: 0 a 30 000, 0 b меньше 1...
Помогите пожалуйста!!
Единица товара стоит a рублей b копеек. Было куплено n штук этого товара. Сколько рублей и копеек пришлось заплатить за всю покупку? На вход программе подаются три целых числа: 0 a 30 000, 0 b < 100 и 0 n 30 000. Выведите два искомых числа.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,n,a1,b1: integer;
begin write('Введите рубли: ');
readln(a);
write('Введите копейки: ');
readln(b);
write('Введите количество: ');
readln(n);
readln(a,b,n);
if(a>0) and (a<30000) and (b>0) and (b<100) and (n>0) and (n<30000) then begin
b1 := b * n mod 100;
a1 := a * n + b * n div 100;
writeln('Рублей ',a1);
writeln('Копеек ',b1);
end else writeln('Ошибка ввода');
end.
Не нашли ответ?
Похожие вопросы