Число

[Serg_07]

Ребят, помогите!!!!!!!!!! Дано натуральное число n, выяснить..входит ли цифра 3 в запись числа n, подкиньте идею. Спасибо!!!!!!!!!!

[Sazary]

uses crt;
var
N,i,k : integer;
begin
clrscr;
write('Vvedite chislo: ');
readln(n);
i := n;
while n>0 do
  begin
  k := n mod 10;
  if k = 3 then
    begin
    writeln('3 vhodit v zapis ',i);
    break;
    end;
  n := n div 10;
  end;
readln;
end.

[Serg_07]

а если на бейсике..)))))))))))))))))))

[Serg_07]

спасибо)))))))))))))))))))))

[Sazary]

Можно и на бейсике (qbasic) ))

DIM n AS INTEGER
DIM i AS INTEGER
DIM k AS INTEGER

CLS
INPUT "Vvedite chislo: ", n
i = n
DO WHILE n > 0
k = n MOD 10
IF k = 3 THEN
 PRINT USING "3 vhodit v zapis #"; i
 EXIT DO
 END IF
 n = n / 10
LOOP

[Serg_07]

Спасибо!!!!!!!!!!!!!!!!!!!!!!!))))) )))))))))))))))))))))))))))