стр 21 № 27
1 картинка тёплый дождь и розовые облака
2 картинка тёплый дождь и жёлтые облака
3 картинка холодный дождь и синии облоко
стр 22 № 28
МНОЖЕСТВО:
прямоугольник - растений
круг - деревьев
квадрат - лиственные деревьев
овал - вечнозелёных деревьев
треугольник - кустарников
квадрат в круге - не лиственных деревьев
пересечение квадрата и овала - вечнозелёных и лиственых деревьев
объеденение квадрата и круга - вечно зелёных или лиственых деревьев
дуб в квадрат но не в овала
сирень в треугольник
лиственница в круг
сосна в овал но не в квадрат
пальма в пересечение квадрата и овала
ВЫСКАЗЫВАНИЕ: деревья для которых высказывание истинно
Дерево не лиственное Лиственница, сосна
Дерево лиственное и вечнозелёное Пальма
Дерево лиственное или вечнозелёное Дуб , сосна, пльма
Дерево лиственное и не вечнозелёное Дуб
Дерево не лиственное и не вечнозелёное Лиственница
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer;
Begin
writeln ('Введите число');
readln(n);
writeln('Делители числа:');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
write(i,' ');
end;
End.
Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
a, b, x, y, nod: integer;
begin
writeln('Введите a,b');
readln(a, b);
x := a;y := b;
while x <> y do
if x > y
then x := x - y
else y := y - x;
nod := x;
writeln('NOD(', a, ',', b, ')=', nod);
end.