стр 21 № 27
1 картинка тёплый дождь и розовые облака
2 картинка тёплый дождь и жёлтые облака
3 картинка холодный дождь и синии облоко
стр 22 № 28
МНОЖЕСТВО:
прямоугольник - растений
круг - деревьев
квадрат - лиственные деревьев
овал - вечнозелёных деревьев
треугольник - кустарников
квадрат в круге - не лиственных деревьев
пересечение квадрата и овала - вечнозелёных и лиственых деревьев
объеденение квадрата и круга - вечно зелёных или лиственых деревьев
дуб в квадрат но не в овала
сирень в треугольник
лиственница в круг
сосна в овал но не в квадрат
пальма в пересечение квадрата и овала
ВЫСКАЗЫВАНИЕ: деревья для которых высказывание истинно
Дерево не лиственное Лиственница, сосна
Дерево лиственное и вечнозелёное Пальма
Дерево лиственное или вечнозелёное Дуб , сосна, пльма
Дерево лиственное и не вечнозелёное Дуб
Дерево не лиственное и не вечнозелёное Лиственница
var
a,b,c,i,n,p,s:integer;
x:real;
p1,g:string;
begin
writeln('vvedite chislo');
readln(a);
writeln('is kakoi perevodim?');
readln(b);
if b=10 then begin
writeln('v kakoi perevodim?');
readln(c);
end;
n:=0;
p:=0;
if b<>10 then begin 'is 10 v lubuyu sistemu
repeat
x:=exp(ln(b)*n);
s:=Round(x);
p:=p + (a mod 10)*s;
a:= a div 10;
n:=n+1;
until a=0;
end
else begin
repeat 'is luboi sistemi v 10
g:=IntToStr(a mod c);
p1:=p1 + g;
a:=a div c;
until a<c;
p1:=p1+IntToStr(a);
end;
if p=0 then begin 'vivod
for i:=1 to length(p1) do
write(p1[length(p1)-i+1]);
end
else
write(p);
end.
