Для начала складываем 4+8 и получаем 12 или по 5 горшков.
А потом меняем большие горшки на маленькие.
Один большой равен двум маленьким и наоборот два маленьких равны одному большому.
P.S.:ну во как-то так.думаю что ты поймешь)))
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
Тема:
1.осень
2.лучшая техника 2016
3.новая техника 2016
4.стоит ли покупать новый айфон 7
5.почему дети так не любят школу?
6.я ♥ информатику
7.что я буду делать на осенних каникулах?
Var
num, sum, k: integer;
begin
sum := 0;
read(k);
for num := 2 to k do if num mod 2 = 0 then sum += num;
write(sum);
end.