Решите задачу на паскале!

Question

Решите задачу на паскале! В промежутке [m, n] найти все числа, в записи которых нет цифрыb.

Answer 1

80

iytin

17 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: