23мб - 23352кб
512бит - 64байи
7гб- 7516192768байт
36кб - 36864байт
Const
c1='Математический анализ';
c2='Алгебра и геометрия';
c3='Информатика';
c4='История';
c5='Философия';
var
o: text;
begin
AssignFile(o, 'Output.dat');
Rewrite(o);
write(o,c1,'|',c2,'|',c3,'|',c4,'|',c5);
CloseFile(o)
end.
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>
X. Y. Комментарий
4. 35 X >=Y ? нет. тогда идём на цикл по стрелке НЕТ
4+2=6. 35-6=29. X>=Y? Нет. Опять идём на цикл по стрелке НЕТ
6+2=8. 29-8=20. X>=Y? Нет. Делаем цикл по стрелке НЕТ
8+2=10. 20-10=10. X>=Y? Да. Выходим из цикла по стрелке ДА