Question

Написать программу в Pascal, определяющую, является ли 4-хзначное число, введенное с клавиатуры, кратным 5 и одновременно удовлетворяющим условию, что вторая цифра в его записи равна 2.

Answer 1

Ответ:

PascalABC.NET 3.5.1

begin

 var N := ReadInteger();

 var sec_char := char.GetNumericValue(N.ToString[2]);

 if ((N mod 5 = 0) and (round(sec_char) = 2)) then Println('Yes') else Println('No');

end.

Объяснение:

Answer 2

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

pascalCopy code
program CheckNumber;

var
  number: integer;

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

  // Проверка кратности числа 5 и второй цифры равной 2
  if (number mod 5 = 0) and ((number div 100) mod 10 = 2) then
    writeln('Число удовлетворяет условию.')
  else
    writeln('Число не удовлетворяет условию.');

  readln;
end.

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