Question

Дано трехзначное число, узнать есть ли в числе цифра 4 или 7? паскаль. составьте программу

Answer 1

Var n,a,b,c:integer;
begin
read(n);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
if (a=4) or (b=4) or (c=4) then writeln('в числе есть цифра 4');
if (a=7) or (b=7) or (c=7) then writeln('в числе есть цифра 7');
end.

Answer 2

Конечно, вот пример программы на Pascal, которая проверяет, есть ли цифры 4 или 7 в трехзначном числе:

program CheckDigits;
var
  number: integer;
  digit: integer;
  hasFourOrSeven: boolean;
begin
  // Ввод трехзначного числа
  writeln('Введите трехзначное число: ');
  readln(number);

// Инициализация переменной, указывающей на наличие цифр 4 или 7
  hasFourOrSeven := false;

// Проверка наличия цифр 4 или 7 в числе
  while number > 0 do
  begin
    digit := number mod 10;  // Получаем последнюю цифру числа

if (digit = 4) or (digit = 7) then
    begin
      hasFourOrSeven := true;
      break;  // Если найдена цифра 4 или 7, выходим из цикла
    end;

number := number div 10;  // Убираем последнюю цифру числа
  end;

// Вывод результата
  if hasFourOrSeven then
    writeln('В числе есть цифра 4 или 7.')
  else
    writeln('В числе нет цифры 4 или 7.');

readln;
end.

Программа сначала запрашивает у пользователя ввод трехзначного числа. Затем она проверяет каждую цифру числа на равенство 4 или 7 с помощью оператора `if`. Если хотя бы одна из цифр равна 4 или 7, переменная `hasFourOrSeven` устанавливается в `true`, и программа выводит соответствующее сообщение. Если ни одна из цифр не равна 4 или 7, программа выводит другое сообщение.