Question

Решить в паскале задачу (8-9 класс):дано четырехзначное число. определить, входят ли в него цифры 2 или 7

Answer 1

program test;
var x, temp: integer; flag: boolean;
begin
   write('Введите целое четырёхзначное число: ');
   read(x);

   flag:=false;

   while x <> 0 do
   begin
      temp:=x mod 10;

      if (temp = 2) or (temp = 7) then
      begin
         flag:=true;
         break;
      end;

   x:=x div 10;

end;

   if flag then
      writeln('2 или 7 входят в число.')
   else
      writeln('2 или 7 не входят в число.');
end.

Answer 2

Для решения данной задачи в Pascal можно использовать следующий алгоритм:

1. Запросить у пользователя четырехзначное число и сохранить его в переменную. 2. Разбить число на отдельные цифры. Для этого можно использовать операцию деления на 10 и остаток от деления на 10. 3. Проверить, входят ли цифры 2 или 7 в число. Для этого можно сравнить каждую из цифр с 2 и 7 с помощью оператора if. 4. Если хотя бы одна из цифр равна 2 или 7, вывести сообщение "Цифры 2 или 7 входят в число". 5. Если ни одна из цифр не равна 2 или 7, вывести сообщение "Цифры 2 или 7 не входят в число".

Пример решения на Pascal:

```pascal program CheckDigits; var number, digit1, digit2, digit3, digit4: integer; begin writeln('Введите четырехзначное число:'); readln(number);

digit1 := number div 1000; // первая цифра digit2 := (number div 100) mod 10; // вторая цифра digit3 := (number div 10) mod 10; // третья цифра digit4 := number mod 10; // четвертая цифра

if (digit1 = 2) or (digit1 =