<span>Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
</span>Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
<span>Барометр нужен для измерения атмосферного давления.
</span><span>Компас нужен для ориентирования по магнитным полюсам Земли.
</span><span>Телескоп нужен для того, чтобы увидеть отдалённые объекты.
</span><span>Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
</span>Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>
64,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,