Напишите программы в PascalABCNET №1 Сколько можно купить ручек и карандашей на 450 рублей, если ручка стоит 70 рублей, а карандаш 20 рублей? Известно, что на 90 рублей можно купить 1карандаш и 1 ручку.

№2 Найти количество четырехзначных чисел, в которых ровно две одинаковые цифры.

Предыдущий
вопрос Следующий
вопрос

№1

program BuyPensAndPencils
va
pricePen, pricePencil, totalMoney, pens, pencils: integer
begi
pricePen := 70
pricePencil := 20
totalMoney := 450;

pens := totalMoney div pricePen
pencils := totalMoney div pricePencil;

writeln('Можно купить ', pens, ' ручек и ', pencils, ' карандашей за ', totalMoney, ' рублей')
end.

№2

program CountNumbersWithTwoSameDigits
va
count, num, digit1, digit2: integer
begi
count := 0;

for num := 1000 to 9999 d
begi
digit1 := num mod 10
digit2 := (num div 10) mod 10;

end;

writeln('Количество четырехзначных чисел с двумя одинаковыми цифрами: ', count)
end.