Программа на языке Паскаль, которая проверяет делится ли введенное с клавиатуры число на 2, 3 и 5:
program CheckDivisibility; var x: integer; begin write('Введите число x: '); readln(x); if (x mod 2 = 0) then writeln(x, ' делится на 2'); if (x mod 3 = 0) then writeln(x, ' делится на 3'); if (x mod 5 = 0) then writeln(x, ' делится на 5'); end.
Пользователю будет предложено ввести число, а затем программа проверит, делится ли это число на 2, 3 и 5, и выведет соответствующие сообщения.
Программа на языке Паскаль, которая проверяет делится ли введенное с клавиатуры число на 2, 3 и 5:
program CheckDivisibility;var
x: integer;
begin
write('Введите число x: ');
readln(x);
if (x mod 2 = 0) then
writeln(x, ' делится на 2');
if (x mod 3 = 0) then
writeln(x, ' делится на 3');
if (x mod 5 = 0) then
writeln(x, ' делится на 5');
end.
Пользователю будет предложено ввести число, а затем программа проверит, делится ли это число на 2, 3 и 5, и выведет соответствующие сообщения.