Задать вопрос
12 марта, 11:38

Паскаль

Даны целое число k (1≤ k≤ 180) и последовательность цифр 10111213 ... 9899, в которой выписаны подряд все двухзначные числа. Определить k-ю цифру.

+4
Ответы (1)
  1. 12 марта, 14:13
    0
    Var

    k, i:integer;

    s, x:string;

    begin

    for i:=10 to 99 do s:=s+IntToStr (i) ;

    writeln (s) ;

    write ('Введите число k: ') ;

    readln (k) ;

    x:=s[k];

    writeln (k,'-я цифра: ', x)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль Даны целое число k (1≤ k≤ 180) и последовательность цифр 10111213 ... 9899, в которой выписаны подряд все двухзначные числа. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы