Если 1 символ равен 1 байту, то:
1) Информационный объем одной страницы: 30 * 60 = 1800 байт
2) (50 * 1024) / (30 * 60) = 28.4. Значит, понадобится 29 листов
SCREEN 12
CIRCLE (100, 100), 50, 15
DO WHILE C < 100
C = C + 1
IF C = 15 THEN C = 0
PAINT (100, 100), C, 15
LOOP<span>
</span>
1. Б
3. Б
5. В
7. Б
8. Б
9. А
10. В
11. А
12. Г
13. В
14. А
15. А
16. Г
17. Г
18. В
19. Б, Д
20. Д, В
Честно не уверена, что это верно. Но думаю что-то да правильное есть
Var a,s:integer;
begin
s:=0;
a:=9;
repeat
a:=a+2;
s:=s+a;
until a=99;
writeln('s = ',s);
end.
Результат:
s = 2475