Это фрагм1 по вперед 40 направо 90 вперед 40 конец это фрагм2 по вперед 40 налево 90 вперед 40 конец это квадрат1 повтори 1[фрагм1] направо 90 повтори 1[фрагм1] конец это полуквадрат по повтори 1[фрагм1] направо 90 повтори 1[фрагм1] налево 90 повтори 1[фрагм1] направо 90 повтори 1[фрагм1] налево 90 конец это полуквадрат2 по повтори 1[фрагм2] налево 90 повтори 1[фрагм2] направо 90 повтори 1[фрагм2] налево 90 повтори 1[фрагм2] направо 90 конец это квадраты3 по повтори 1[фрагм1] направо 90 повтори 1[фрагм1] налево 270 налево 90 повтори 1[фрагм1] налево 90 конец
Var i,sum: integer;
Begin
i:=2;
while (i<=22) do
begin
write(i,' ');
i:=i+2
end;
End.
5)
Var i,sum: integer;
Begin
i:=5;
while (i<=20) do
begin
sum:=sum+i;
i:=i+1
end;
Writeln('Сумма чисел от 5 до 20 = ',sum)
End.
6)
Var i,pr: integer;
Begin
i:=8;
pr:=1;
while (i<=18) do
begin
pr:=pr*i;
i:=i+2
end;
Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.
7)
Var i: integer;
Begin
i:=10;
while (i<=65) do
begin
Write(i,' ');
i:=i+5
end;
End.
1+3+5+7 это ничто иное как арифметическая прогрессия.
Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая:
d - это разность между двумя соседними членами, из большего вычитаем меньшее
n - это сколько всего членов
и так, у нас получается
d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность)
n = это переменная, она нам не известна, поэтому так и оставим.
И теперь подставим что у нас имеется.
weight =
weight =
В коде программу будет записано так
weight = ( ( 2+2*(n-1) ) / 2)*n
Проверим, например у нас 5 детей, значит надо 5 подарков, это
1+3+5+7+9 = 25
Проверим формулу
weight = ( ( 2+2*(5-1) ) / 2)*5
weight = ( ( 2+2*4 ) / 2)*5
weight = ( ( 2+8 ) / 2)*5
weight = ( 10 / 2)*5
weight = 5*5
weight = 25
Всё сходится.
Расписал подробно, чтобы всё было понятно
Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)