Сколько раз исполнится цикл:

i:=4;
while i<10 do
i:=i+3;

2 раза

Объяснение:

1-й раз i = 7

2-й раз i = 10

3-й уже не войдет

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

знаю, что арабские цифры придумали в древней индии, про древнеиндийские книги знаю только то, что их писали на языке санскрите, и если не ошибаюсь, то записи в древней индии делали на глине