Question

Составьте математическую модель,и программу, проверяющую, является ли число, введенное с клавиатуры четным или кратным 6.(паскаль)

Answer 1

Var a:integer;
begin
write ('Введите число а= '); readln(a);
if a mod 2 =0 then writeln ('Число ',a,' четное') else writeln ('Число ',a,' нечетное');
if a mod 6 =0 then writeln ('Число ',a,' кратно 6') else writeln ('Число ',a,' не кратно 6');
end.

Answer 2

Вот пример программы на языке Pascal, которая проверяет, является ли введенное с клавиатуры число четным или кратным 6:

pascalCopy code
program CheckEvenOrMultipleOf6;
var
  num: Integer;
begin
  writeln('Введите целое число: ');
  readln(num);
  
  if (num mod 2 = 0) then
    writeln('Число ', num, ' является четным.')
  else
    writeln('Число ', num, ' не является четным.');
    
  if (num mod 6 = 0) then
    writeln('Число ', num, ' кратно 6.')
  else
    writeln('Число ', num, ' не кратно 6.');
end.

Эта программа сначала запрашивает у пользователя ввод целого числа. Затем она проверяет, является ли число четным (проверка num mod 2 = 0) и кратным 6 (проверка num mod 6 = 0) и выводит соответствующее сообщение.