Пользователь вводит целое число. Программа должна ответить, четным является это число или нечетным, делится оно на 3 или нет, и делится оно на 6 или нет. Программа на языке Паскаля!
program CheckNumber; var num: integer; begin writeln('Enter an integer number: '); readln(num); if num mod 2 = 0 then writeln(num, ' is an even number.') else writeln(num, ' is an odd number.'); if num mod 3 = 0 then writeln(num, ' is divisible by 3.') else writeln(num, ' is not divisible by 3.'); if num mod 6 = 0 then writeln(num, ' is divisible by 6.') else writeln(num, ' is not divisible by 6.'); end.
var
num: integer;
begin
writeln('Enter an integer number: ');
readln(num);
if num mod 2 = 0 then
writeln(num, ' is an even number.')
else
writeln(num, ' is an odd number.');
if num mod 3 = 0 then
writeln(num, ' is divisible by 3.')
else
writeln(num, ' is not divisible by 3.');
if num mod 6 = 0 then
writeln(num, ' is divisible by 6.')
else
writeln(num, ' is not divisible by 6.');
end.