SSD, HDD, Flash, SD cards
Вор варует - хакер взламывает
Вирусболезнь это живое - вирус компьютерный не живое
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.
<span>https://yadi.sk/i/Xc7hsqHH3UXsgu
</span>Я не очень разбираюсь в физике и не уверен, что до конца понял задание, но реализовал все формулы, которые у вас написаны в виде графика Excel (g = 10).
Напишите мне, если нужно что-то исправить.