Информатика 9 класс. PASCAL. Есть ли цифра в числе?

[Сергей1123]

Информатика 9 класс. PASCAL. Есть ли цифра в числе?

В программу вводятся 2 значения: любое семизначное число и любая цифра. Если цифра есть в данном числе программа должна написать "ДА", если такой цифры нет программа должна написать "НЕТ". ТОЛЬКО НА PASCAL.

 

[Vladimir_S]

В программу вводятся 2 значения: любое семизначное число и любая цифра. Если цифра есть в данном числе программа должна написать "ДА", если такой цифры нет программа должна написать "НЕТ". ТОЛЬКО НА PASCAL.

Например, так:

Var
 S:String;
 C:Char;
 b1,b2:boolean;
 i:byte;

Begin
 Repeat
  b1:=TRUE;
  b2:=TRUE;
  Write('N = ');
  Readln(S);
  if length(S)<>7 then b1:=FALSE;
  if b1 then
   for i:=1 to 7 do
    if (Ord(S[i])<48) or (Ord(S[i])>57) then b2:=FALSE;
  if (b1=FALSE) or (b2=FALSE) then
   Writeln('Incorrect value! Repeat the inputing!')
 Until b1 and b2;
 Repeat
  b1:=TRUE;
  Write('C = ');
  Readln(C);
  if (Ord(C)<48) or (Ord(C)>57) then
   begin
    b1:=FALSE;
    Writeln('Incorrect value! Repeat the inputing!');
   end;
 Until b1;
 b1:=FALSE;
 i:=0;
 repeat
  Inc(i);
  if S[i]=C then b1:=TRUE;
 until b1 or (i=7);
 if b1 then Writeln('Yes!') else Writeln('No!');
 Readln
End.

 

[AlexZir]

Владимир Игоревич, ну вы и завернули! )

 

[Vladimir_S]

Владимир Игоревич, ну вы и завернули! )

Лёш, да ничуть! Там если контроль правильности ввода числа и цифры убрать, то вообще три строчки останется. А совпадение удобнее IMHO проверять в строковом формате, чем, например, семизначное число на отдельные цифры раздраконивать.

 

[AlexZir]

Да я и сам умею код читать. Просто для 9-го класса с учётом того, что ЯП только начали изучать, такие конструкции уж оченно подозрительно выглядят при проверке )

Скорее всего там требовалось реализовать проверку с использованием длинных целых и целочисленного деления )

 

[Vladimir_S]

Скорее всего там требовалось реализовать проверку с использованием длинных целых и целочисленного деления

Ой, да пожалуйста — тоже мне, проблема века!

Var
 N:LongInt;
 D,A:Byte;

Begin
 Write('N = ');
 Readln(N);
 Write('D = ');
 Readln(D);
 repeat
  A:=N mod 10;
  if A<>D then N:=N div 10;
 until (A=D) or (N=0);
 if A=D then Writeln('Yes!') else Writeln('No!');
 Readln
End.