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

212

326

Посмотреть ответы 2

Ответы на вопрос:

235www

Информатика

4,8(95 оценок)

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.