если a>5 то a:=a+20 иначе a:=a*10
Подставляем значение а.
1) a=4
если 4>5 то a:=4+20 иначе a:=4*10
Утверждение ложно, выполняется то, что после "иначе". a:=4*10 = 40
2) a=17
если 17>5 то a:=17+20 иначе a:=17*10
Утверждение истинно, выполняется то, что после "то". a:=17+20 = 37
<em>№1 111010</em>
<em>№2 2d</em>
<em>№3 12</em>
<em>№4 44</em>
<em>№5 84</em>
<em>№6 27</em>
<em>№7 205</em>
<em>№8 100101100</em>
<span><em> 454</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
1. <span>T=V информации / Скорость передачи; 500 мбит/сек = 62,5 мбайта/сек; t=12,5 мбайт / 62,5 мбайт/сек = 0,2 сек Ответ: 0,2 секунды
</span>
33 (Пишется слитно, так как между x и y нет разделов)
Program triangle;
var Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
function findlong(x1, y1, x2, y2:real):real;
var x,y,z:real;
begin
findlong:=sqrt(abs(sqr(x2-x1)+sqr(y2-y1)));
end;
begin
writeln('Введите координаты вершины А');
readln(Ax,Ay); {ввод через пробел}
writeln('Введите координаты вершины B');
readln(Bx,By);
writeln('Введите координаты вершины C');
readln(Cx,Cy);
AB:=findlong(Ax,Ay,Bx,By);
BC:=findlong(Bx,By,Cx,Cy);
CA:=findlong(Cx,Cy,Ax,Ay);
writeln('AB=',AB,' BC=',BC,' CA=',CA);
end.
Если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)