Question

Срочно! Определить является ли двузначное число кратным 7? Если число не является двузначным но кратно 7 то вывести сообщение что число не двузначное. Если оно не кратно 7 то вывести соответствующее сообщение. Сделать в паскале

Answer 1

Var a: integer;
begin
readln(a);
if (a>9) and (a<100) and (a mod 7=0)
then write('число кратно 7') else
if (a mod 7=0) then
write('число не двузначное, но кратно семи')
else write('число не кратно 7');
end.

Answer 2

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

pascalCopy code
program CheckNumber;

var
  number: integer;

begin
  writeln('Введите двузначное число:');
  readln(number);

  if (number < 10) or (number > 99) then
    writeln('Число не является двузначным.')
  else if (number mod 7 = 0) then
    writeln('Число является кратным 7.')
  else
    writeln('Число не является кратным 7.');

  readln;
end.

При выполнении этой программы она попросит вас ввести двузначное число. Затем она проверит, является ли число двузначным. Если число не является двузначным, будет выведено сообщение "Число не является двузначным." Если число двузначное, оно будет проверено на кратность 7. Если число кратно 7, будет выведено сообщение "Число является кратным 7." В противном случае будет выведено сообщение "Число не является кратным 7."