1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
На Паскале:
program MyProgram;
var n,i,fact: integer; sum: real;
begin
sum:=0;
fact:=1;
writeln('Введите число N.');
readln(n);
for i:=1 to n do
begin
fact:=fact*i;
sum:=sum+1/fact;
end;
writeln('Сумма 1/1!+1/2!+1/3!+...+1/N = ',sum);
end.
Var i, sumkv, kvsum: integer;
begin
for i:=1 to 10 do
begin
sumkv:=sumkv+sqr(i);
kvsum:=kvsum+i;
end;
kvsum:=sqr(kvsum);
writeln('Сумма квадратов равна ', sumkv);
writeln('Квадрат суммы равен ', kvsum);
<span>end.</span>