1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Очистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if a>0 then writeln('a = ',a) // иначе вывести "чисел нет" else writeln('чисел нет');end.
Ответ:
В десять часов утра обе армии сошлись на ружейный выстрел, и по всей линии открылся огонь. Затем войска бросились врукопашную; первое столкновение произошло на левом фланге русской пехоты, правый фланг шведской пехоты, воодушевленный присутствием короля, бросился на русских и опрокинул батальон Новгородского полка; в нашей линии образовался прорыв. Петр Великий, заметив опасность, взял батальон второй линии и лично повел его на неприятеля.
Значение 1 - 1,2,3,5,6,7,8,9,10 - 23
Значение 5 - 1,2,3,4,6,8,9,10 - 5
значение 10 - 1,2,3,4,6,7,8,9,10 - 20
Сделал на C++, и на всякий случай исходный код (второй файл). Но поскольку сайт не даёт загружать exe'шные файлы, программа замаскирована под текстовый файл, и надо изменить расширение с .txt на .exe. К тому же программа расчитана на Windows.