Помогите пожалуйста!!Единица товара стоит a рублей b копеек. Было куплено n штук этого...

Question

Помогите пожалуйста!!
Единица товара стоит a рублей b копеек. Было куплено n штук этого товара. Сколько рублей и копеек пришлось заплатить за всю покупку? На вход программе подаются три целых числа: 0 a 30 000, 0 b < 100 и 0 n 30 000. Выведите два искомых числа.

Comments

0 a 30 000, 0 b < 100 и 0 n 30 000 не совсем понятно

Answer 1

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 <br> b1 := b * n mod 100;
 a1 := a * n + b * n div 100; 
 writeln('Рублей ',a1); 
writeln('Копеек ',b1); 
 end else writeln('Ошибка ввода');  
end.

Comments

проверь

---

спс