Задаёт основу для создания и развития или расширения вычислительных процессов(системы)
Var a,b,c,r,d1,d2,d3:real;
begin
writeln('Введи радиус иллюминатора и размеры сундука');
readln(r,a,b,c);
d1:=sqrt(sqr(a)+sqr(b));
d2:=sqrt(sqr(a)+sqr(c));
d3:=sqrt(sqr(b)+sqr(c));
writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
217 бит = 217/8 байт=27,125 байт = 27,125/1024 Кбайт ≈ 0.26 Кбайт
Ответ я так понимаю будет 42
Так как цикл продолжается 6 раз от 3 до 9
сначала такие оказания :
S K
0 3
3 4
7 5
12 6
18 7
25 8
33 9
42