Question

Паскаль. Дано трехзначное число. Определите, входит ли в него цифра 4 или 7. Срочно!

Answer 1

var a,b,i:integer;

c:boolean;

begin

readln(a);

for i:=1 to 3 do

begin

b:=a mod 10;        // выделяем и сохраняем последнюю цифру числа

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

if ((b=4) or (b=7)) then  // проверяем цифру на равенство

begin

c:=true;

break;   // если цифра прошла проверку, то выходим из цикла

end

else c:=false;

end;

if (c=true) then writeln('Входит')

else writeln('Не входит');

end.

Answer 2

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

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

Вот пример реализации этого алгоритма на языке Паскаль:

pascalCopy code
program CheckNumber;

var
  number, digit1, digit2, digit3: integer;

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

  digit1 := number div 100;
  digit2 := (number div 10) mod 10;
  digit3 := number mod 10;

  if (digit1 = 4) or (digit1 = 7) or (digit2 = 4) or (digit2 = 7) or (digit3 = 4) or (digit3 = 7) then
    writeln('Число содержит цифру 4 или 7.')
  else
    writeln('Число не содержит цифру 4 или 7.');

  readln;
end.

После запуска программы она запросит у пользователя ввести трехзначное число и выведет сообщение о наличии или отсутствии цифры 4 или 7 в числе.