Question

Дано трёхзначное число, проверить является ли цифраотвечающая за сотни кратно 3. Ответить языком Паскаля

Answer 1

Ответ:

read (a);

b := (a - (a mod 100))/100;

if b mod 3 = 0 then print ('кратно') else print ('не кратно');

Объяснение:

Answer 2

Вот пример программы на языке Паскаль, которая проверяет, является ли цифра, отвечающая за сотни, кратной 3:

pascalCopy code
program CheckHundredsDigit;
var
  number: integer;
begin
  write('Введите трехзначное число: ');
  readln(number);
  
  // Получаем цифру, отвечающую за сотни
  // Для этого делим число на 100 и находим остаток от деления на 10
  // Например, для числа 345 получим 3
  var hundredsDigit := (number div 100) mod 10;
  
  // Проверяем, является ли цифра, отвечающая за сотни, кратной 3
  if hundredsDigit mod 3 = 0 then
    writeln('Цифра, отвечающая за сотни, кратна 3')
  else
    writeln('Цифра, отвечающая за сотни, не кратна 3');
end.

Программа запрашивает у пользователя трехзначное число, а затем проверяет, является ли цифра, отвечающая за сотни, кратной 3. Если цифра кратна 3, программа выводит сообщение "Цифра, отвечающая за сотни, кратна 3". В противном случае выводится сообщение "Цифра, отвечающая за сотни, не кратна 3".