Розы - 38 млн. , пионы - 3 млн. , розы AND пионы - 4 млн. , розы OR пионы - 2 млн. , -розы пионы 4 млн.
Человек-
чтение газеты человеком
строительство дома людьми
Общение с друзьями
Хождение в ресторан
Игра в волейбол
Животный мир-
принятие определённой позы собакой при приближении соперника
общение дельфинов между собой
виляние хвостом у собак
Беганье за палкой
Игра волчат
Растительный мир-
Опадение листвы
рост побегов
сезонные изменения в природе
Начало дождя
Рост дерева
Технические системы-
вождение автомобиля
Деланье уроков
гулянка
Стройка самолета
Готовка еды в массовом производстве
1)var
fack,x: integer;
begin
x:=0;
fack:=1;
while x<>6 do
begin
x:=x+1;
fack:=fack*x;
end;
write(fack);
end.
2) var
x,y: integer;
begin
x:=4;
while x<>20 do
begin
y:=2*x+7;
x:=x+4;
writeln(x,' ',y);
end;
end.
Объяснение: