Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.
Пример:
4
<span>x = 1.25</span>
2)Безопасность
Это какая-то странная ОС
Ответ:
0.4375Мб(448Кб)
Объяснение:
56*64*128-всего символов(1 символ=байт)=> 56*64*128/1024*1024=
в мб
56*64*128/1024*1024=448Кб=0,4375Мб
Номер 2.
uses GraphABC;
begin
circle(300,200,100);
circle(300,200,90);
circle(300,200,80);
circle(300,200,70);
circle(300,200,60);
circle(300,200,50);
circle(300,200,40);
circle(300,200,30);
circle(300,200,20);
circle(300,200,10);
<span>end.
Номер 1.
uses GraphABC;
begin
circle(25,100,25);
circle(75,100,25);
circle(125,100,25);
circle(175,100,25);
circle(225,100,25);
circle(275,100,25);
circle(325,100,25);
circle(375,100,25);
circle(425,100,25);
circle(475,100,25);
circle(525,100,25);
circle(575,100,25);
<span>end.</span></span>
существует режим «Edit Mode», который позволяет изменять длину или диаметр сегмента, и инструменты, позволяющие заменить круг на линию (и обратно), дублировать сегмент или "обездвижить" его в главном окне аниматора. Фигуры сохраняются в формате .stk.
если нужно подробней напиши в личку