• Даны целое число k (1<=k<=150) и последовательность цифр 101102103...149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Нужно определить k-ую цифру. Решить нужно в Pascal 3 с использованием строк и логических действий. Заранее огромное спасибо.

Ответы 1

  • var k,n: integer;      s: string;begin  write('k = ');  readln(k);  n:=k div 3;  k:=k mod 3;  n:=n+100;  Str(n,s);  if k=0 then writeln(s[3])    else writeln(s[k])  end.
    • Автор:

      hansrowe
    • 2 года назад
    • 19
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years