Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПАСКАЛЬ Составить программу, печатающую значение true, если указанное значение является истинным, и false в противном случае: цифра 4 не входит в запись целого двухзначного числа N.

Answer 1

var N:integer;

begin

readln(N);

if (N mod 10 = 4) or (N div 10 = 4) then

 writeln(false) else  

 writeln(true);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program CheckNumber;

var
  N: Integer;

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

  if (N < 10) or (N > 99) then
    writeln('false')
  else if (N div 10 <> 4) and (N mod 10 <> 4) then
    writeln('true')
  else
    writeln('false');
end.

Эта программа сначала запрашивает у пользователя ввести целое двухзначное число N. Затем она проверяет, что число N действительно является двухзначным (от 10 до 99). Если это не так, программа выводит "false". Затем программа проверяет, что цифра 4 не входит в запись числа N (ни в десятки, ни в единицы). Если это условие выполняется, программа выводит "true". В противном случае, если цифра 4 входит в число N, программа также выводит "false".