Регистрация
kamillavoice
04.01.2022 06:59
Информатика
Есть ответ 👍

Қазақстандық пошталық сервер қалай аталады

237
485
Посмотреть ответы 1

Ответы на вопрос:

р6661
р6661
4,7(100 оценок)
Извращенно, но главное, что работает: uses crt; var n,d,j,m: integer; i,k: string; flag: byte; begin read(n,d); i: ='1'; k: ='9'; while length(i)< n do begin i: =concat(i,'0'); k: =concat(k,'9'); end; for j: =strtoint(i) to strtoint(k) do begin flag: =1; for m: =1 to length(inttostr(j)) do if strtoint(inttostr(j)[m])=d then flag: =0; if flag=1 then  write(inttostr(j),' '); end; end.

Популярно: Информатика