1. например арбуз и мяч (один размер и форма)
Подбирай по этому принципу.
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
<span>а := 10 ⇒ значение 10 помещается в а
b := 4 ⇒ значение 4 помещается в b
b := 200-а*b ⇒ 200-10×4 = 160 помещается в b, заменяя значение 4
а := b/20*а</span> ⇒ (160/20)×10 = 80 помещается в a, заменяя значение 10
<u>80</u>
1) 2 мб = 2048 КБ
2048: 40 = 51,2( раза больше)
( если что : деление)