1. Определить сколько трехзначных чисел кратны…

Question

1. Определить сколько трехзначных чисел кратны m. 2. Определить сколько трехзначных чисел содержат цифру 3.

Answer 1

61

gostyam

27 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: