найти все двузначные числа содержащие цифру n в паскале
5-9 класс
|
var i, j, n: integer;
m: string;
begin
readln(n);
for i := 10 to 99 do
begin
m := inttostr(i);
for j := 1 to length(m) do
if (m[j] = inttostr(n)) then writeln(i);
end;
end.
Вот так=)
Другие вопросы из категории
для цифровых клавиш, больших латинских букв, малых латинских букв, больших русских букв, малых русских букв.
2 Кбайт=? Байт
4 Мбайт=? Бит
3.5 Гигабайт=? Кбайт
146512 бит=? байт
414777 бит=? Кбайт
Читайте также
числа х,то получилось число n . Найти число х ( значение n вводится с клавиатуры 1
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
числа в массиве отсутствуют, то оставить массив без изменений