Var
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
21 потому что если воробьи перепрыгивают с доски на доску (соседнюю) то получается они двигаются назад так и получается"21" с начала один раз в право потом один раз в лево двое из них не двигаются назад они стают на месте
В растительном , делением клеток
В животном произвидение потомства