Var i,s: integer; a:array[1..20] of integer;
begin
s:=1;
randomize;
for i := 1 to 20 do
a[i] := random(45)-20;
for i:=1 to 20 do
begin
i:=i+1;
s:=s*i;
end;
write(s);
end.
проверяй в компиляторе, где-то накосячил
1) строка заголовка
2) кнопка Office
3) панель быстрого доступа
4) кнопки управления окном
5) меню вкладок
6) рабочая область
7) координаты линейки
8) полосы прокрутки
9) строка состояния
600 МБайт = 600 * 1024 = 614400 Кбайт
Всего фотографий на диске: 614400 / 500 = 1228.8 но округляем в меньшую сторону, так как куска фото быть не может
1228 * 6 = 7368 секунд = 122,8 минут = 2 часа 2 минуты 48 секунд
Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.