Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Задание в программе Lazarus(язык turbo delphi). Дано четырехзначное число. Определить входит ли в него цифры 2 или 7.
Пожалуйста, исправьте ошибку или решите заново)
program project1;
var X: integer;
begin
read(X);
if (X < 1000) or (X > 9999) then
begin
writeln(need 4 digits);
exit end;
while (X <> 0) do begin
if (X mod 10 ) = 2 or (X div 10 mod 10) = 2 or (X div 100) = 2 or (X div 1000) = 2
or
(X mod 10 ) = 7 or (X div 10 mod 10) = 7 or (X div 100) = 7 or (X div 1000) = 7 then
writeln(yes) else writeln(no);
end;
end.

Ответ оставил Гость

Program project1;

var
    X: integer;

begin
    read(X);
    if (X < 1000) or (X > 9999) then
    begin
        writeln(need 4 digits);
        exit;
    end;
   
    while (X > 0) do
    begin
        if (X mod 10 = 2) or (X mod 10 = 7) then begin
            writeln(yes);
            exit;
        end;
        x := x div 10;
    end;
   
    writeln(no);
end.