Цитата:
Сообщение от Сергей1123
В программу вводятся 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.