Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
begin
p:=p*a;
a:=a+0.25;
end;
writeln('p = ',p:6:2);
if s>p
then writeln('Сумма больше')
else writeln('Произведение больше');
end.
Результат:
s = 8027.50
p = 304.54
Сумма больше
(1;3)+(1;-2)*3=(6;9)
(6;9)+(3;9)=(9;12)
чтобы чертежник вернулся в исходную точку необходимо переместить его на (-9;-12)
(-9;-12)/3=(-3;-4)
Ответ:4
Задание 5 получается D$2+$E5 =410
Ребята,в 7 классе будет информатика,можно ответ?