Строки (цепочки символов латинских букв) создаются по следующему правилу.
Первая строка состоит из одного символа-А(латинский). Каждая из последующих цепочек создается такими действиями: в очередную строку сначала записываются в обратном порядке символы предыдущей строки, а затем приписывается буква, чей порядковый номер соответствует номеру строки(на i-м шаге пишется i-ая буква алфавита).
Вот первые четыре строки, созданные по этому правилу:
A
AB
BAC
CABD

   Запишите  5 символов подряд, стоящие в двадцатой строке с 10-го по 14-ый символ(считая слева направо)

Изучаем информатику?

(1) ага

(0) используй цикл + КодСимвола+Символ и будет тебе счастье.

(0) есть какие-то шансы этого избежать?

можно и рекурсией слепить

можно и весь алфавит в строку запихать и через Сред

(5) тут рекурсия напрашивается.

"DBACE" угадал?

(8)+ хотя не? четность то поменяется "ECABD"

(9) не угадал, с 10 по 14  символ же надо из строки

(10) Ну я думал 5 символов и 5-я строка это типа намек на ответ сразу ))

(10) Вроде правильный ответ.

(9) (12) точно нет, символы ABCD будут в 20-й строке на отрезке 9-12.

(13) 12-9

(13) (14) Ну что в ответе будет CA или BD хотя бы?

Гм BDF... ?

та пусть аутор напишет и проверяет.. :)

(16) BDFHJ ?

ABDFH :)

(19) Да может и так, на 1 символ ошибся ((

(20) Ошибка встроенного процессора ))

Перед  дверью в компьютерный класс висит табличка , на которой описан алгоритм получения кода числового замка: «в последовательности цифр 74263 из каждой нечетной цифры  вычесть 3,а  к каждой четной цифре прибавить 1, а затем удалить цифры, стоящие на четных местах».
Какой код должен получиться в результате выполнения этого алгоритма?
597
430
400
302

430

(23) ЭЭэ 2 минуты... процессор еще и тормозной ((

Написана программа, которая производит операции  с целыми числами. Возможны две операции  с числами:
Поделить число на 2, если число делится нацело;
Отнять от числа 5.
Программе изначально задано число 47. Какое наименьшее число операций необходимо совершить, чтобы получить отрицательное число?
6
9
5
7

5

-5
/2
-5
/2
-5
-5

6))

(25) 6

(25)  Еще, еще задач!

Егор забыл пароль от почтового ящика, но помнил алгоритм  его получения из строки «Q11R27W6R64»: если нечетные числа (стоящие между буквами ) в строке увеличить вдвое, а затем убрать из строки каждую цифру , стоящую сразу после буквы R, то полученная последовательность и будет паролем. Определите пароль.
Q22R27W6R4
Q22R4W6R4
Q22R14W6R6
Q22R27W6R6

(29) Не в уме это читы ((

Q22R4W6R4 (30)

Q22R4W6R4

(31) Всё-всё-всё, больше не буду.

Программа получает на входе три числа и проверяет, является ли треугольник с введенными длинами сторон прямоугольным. Код программы был написан с ошибками.
Var  a, b, c: real;
Begin
                Readln(a,b,c);
If (a>0) and (b>0) and(c>0) then
    If (a*a+b*b=c*c) and(a*a+c*c=b*b) and(c*c+b*b=a*a)
          Then
           Writeln('прямоугольный')
Else
           Writeln('не прямоугольный');

End.

Выполните следующее:
1) укажите  тройку чисел, для которых программа работает неверно;
2) укажите, как  доработать программу.

If (a*a+b*b=c*c) or(a*a+c*c=b*b) or(c*c+b*b=a*a)

3 4 5

(35) Гм в упор не помню "else" без begin/end к какому if'у относится?

(38) к последнему, вестимо

надо просто так писать и привет
If (a>0) and (b>0) and(c>0) and (
     (a*a+b*b=c*c) or(a*a+c*c=b*b) or(c*c+b*b=a*a))
          Then
           Writeln('прямоугольный')
Else
           Writeln('не прямоугольный');


End.

(40) он так и написал ))

неа, там 2 if

(42) дык я то про структурирование кода ))
от всех if'ов избавится не выйдет в коде всегда сведя к одному

было изначально, хотя, можно и сохратить,
if min(a,b,c)>0 and ...

(44) Через sqrt не проще с трайкачем ?

(45) не, вдруг, там есть поддержка мнимых чисел ?

(45)+ Хотя через площади по формулам разным еще проще без составных условий.
И через max(a,b,c), min(a,b,c) и
(a+b+c) - max(a,b,c) - min(a,b,c) ))

(46) В ТЗ ничего нет про "не мнимые числа" ))

Программа проверяет является ли заданное положительное целое число n палиндромом( n<=32000). Код программы был написан с ошибками.

var
   n,i,j:integer;
   c:array [1..5] of byte;
  flag:boolean;
begin
      readln(n);
     i:=0;
    repeat
         i:=i+1;
        c[i]:=n mod 10;
       n:=n div 10;
    untill (n=0);
flag:=true;
for j:=1 to i div 2 do
      if c[j]<>c[i-j] then
              flag :=false;
if  flag then  writeln(' палиндром')
        else
       writeln('не  палиндром');
end.

Выполните следующие действия:
1) Приведите пример чисел, программа для которых правильно решает задачу
2) Приведите пример чисел, программа для которых не правильно решает задачу
3) Устраните ошибку
4) Укажите, как нужно доработать программу,чтобы избежать лишних сравнений

(0) это то что называется "г0вн0к0д"

сорри (50) к (49) ))

(49) мот того, сам, всё сам ?

Дано натуральное число n (n?100), определяющее возраст человека (в годах).
Написать программу, дающую для этого числа наименование «год», «года», «лет».Например: 1 год, 23 года и т.п.

(53) Есть такая программа в армии... И вы представляете собой ее последнюю модель!

Сведения о книгах библиотеки хранятся в текстовом файле.Для каждой книги отводится одна строка (длина до 255). В начале строки записана фамилия автора, а затем через произвольное
количество пробелов наименование и год издания.Составьте программу,которая осуществляет поиск книг по фамилии автора,изданных не ранее указанного года.
Пример входной строки: Ахматова А.А.     Сероглазый Король. 2006.

Дан целочисленный массив из 50 элементов. Элементы массива могут принимать значения от 100 до 150-сведения о сборе пшеницы с одного гектара земли.
Опишите  на русском языке или на одном из языков программирования алгоритм, который находит максимальную разницу между порядковыми номерами гектаров, с которых собрали одинаковое количество пшеницы. Гарантируется, что есть по крайней мере одна пара элементов с одинаковыми значениями. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные не объявленные ниже, но разрешается не использовать часть них.

Программа проверяет является ли заданное положительное целое число n палиндромом( n<=32000). Код программы был написан с ошибками.

var
   n,i,j:integer;
   c:array [1..5] of byte;
  flag:boolean;
begin
      readln(n);
     i:=0;
    repeat
         i:=i+1;
        c[i]:=n mod 10;
       n:=n div 10;
    untill (n=0);
flag:=true;
for j:=1 to i div 2 do
      if c[j]<>c[i-j] then
              flag :=false;
if  flag then  writeln(' палиндром')
        else
       writeln('не  палиндром');
end.

Выполните следующие действия:
1) Приведите пример чисел, программа для которых правильно решает задачу
2) Приведите пример чисел, программа для которых не правильно решает задачу
3) Устраните ошибку
4) Укажите, как нужно доработать программу,чтобы избежать лишних сравнений

ВР нового спам-бота написал ?
Похвально

(58) Кстати тема, помню на ирц каналах боты викторины устраивали (:
На форуме было б прикольно.