Var sum:real;
i:integer;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+(i/2);
writeln(sum);
<span>end.</span>
Паскаль:
<span>const pi=3.14;
var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:4:1);
end<span>.
Пример:
</span><span>R = 4
V = 267.9</span></span>
14400. один бит равен одному символу.
Польза
Благодаря силе трения,
мы можем нормально ходить,
мы можем спокойно стоять на земле или другой поверхности,
древние люди добывали огонь,
ну можно еще много сюда привести,
Вред
Например сила трения приводит к износу деталей автомобиля: подшипников, шин,
из-за нее делаются болезненными некоторые, действия человека, пример: если пальцы рук будут тереться об ручку лопаты во время какой-либо работы, то возникнут мозоли как защитная реакция организма
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.