Задание в программе Lazarus(язык turbo delphi). Дано четырехзначное число. Определить входит ли в него цифры 2 или 7. Пожалуйста, исправьте ошибку или решите заново) program project1; var X: integer; begin read(X); if...
Задание в программе 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.
Не нашли ответ?
Похожие вопросы