Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
Program art;
var s: string;
k: integer;
begin
writeln('Введите строку');
readln(s);
k:=length(s);
writeln('Длина строки: ',k);
end.
Я не помну как в роботе пишется, но алгоритм прост:
Пока справа не стена: закрась; передвинься направо.
Скажи преподавателю, что задача ужасно составлена и рисунок тоже ужасный.
Возникнут вопросы, обращайся.
Оответ на картинке - четыре зайца п углам и одного в центр
16384/8=2048 байт
2048/1024=2кб
4*2=8кбайт