Var a: integer; begin write ('Введите число: ');read (a); if (a mod 2 = 0) then writeln ('Число делится на 2'); if (a mod 3 = 0) then writeln ('Число делится на 3'); if (a mod 5 = 0) then writeln ('Число делится на 5'); if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
