Задание:
1. Определить сколько трехзначных чисел кратны m. 2. Определить сколько трехзначных чисел содержат цифру 3.
Решение:
program z1; var a,m,n: integer; beginwriteln ('введите трехзначное число '); readln (a); writeln ('введите число m '); readln (m); if (a mod m)=0 then writeln ('числа кратные m',a) else writeln ('не кратны'); if (a mod 10)=3) or (a div 10) mod 10)=3) or (a div 10)=3) then n: =n+1; writeln ('количество чисел содержащих число 3',n); end.
Знаете другой ответ?