проверить делится ли введенное с клавиатуры число х на 2,3,5 паскаль

1
Добрый день!
Число делится на 2,3,5 одновременно?

Ответы и объяснения

  • SkyBy
  • главный мозг
2013-11-16T10:30:19+04:00
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.