Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
На 1 монитор на 2 сканер.
Самое понятное решение таких задач, с моей точки зрения, такое
Обозначим за X 4-ю строку
Тогда 5)ХХE
6)XXEXXEF
7)<u>XXEXXEFXXE</u>XXEFG
В 4-ой строке 15 символов
Значит в 7-й подчеркнутый момент составляет 30*3+4=94
Т.е на 95 месте будет начало строки Х
<span>AABAABCAABA<u>ABCD</u> дальше опять идет Х т.е<u> </u></span><u>AA</u>BAABCAABAABCD
Т.е ответ <u>ABCD</u><u>AA</u>