profile
Опубликовано 4 года назад по предмету Информатика от hawk231997

найти все двузначные числа содержащие цифру n  в паскале

  1. Ответ
    Ответ дан HRAshton
    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.

    Вот так=)
Самые новые вопросы