Задание:
Решите задачу на паскале! В промежутке [m, n] найти все числа, в записи которых нет цифрыb.
Решение:
Program Pr1; uses crt; var mas: array[byte] of integer; i,n,m,b,a,c: integer; tmp,tmp1: string; Beginclrscr; writeln ('Введите промежуток и число'); readln (m,n,b); str (b,tmp); for i: =m to n do begin c: =0; tmp1: ='; str (i,tmp1); for a: =1 to length (tmp1) do if tmp1[a]<>tmp[1] then c: =c+1; if c=length (tmp1) then writeln (i); end; end.
Знаете другой ответ?