Отключить ток
отсоединить пострадавшего
оказать первую медпомощь
(это ты должна уметь)
помог - оцени ;)
<span>var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end<span>.
Пример:
</span><span>n = 10
s = 119</span></span>
Учитель чтобы сделать какие нибудь презентации детям.Врач чтобы смотреть биение сердца,а библиотекарь что бы смотреть наличие книг в библиотеке.
Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
В одном байте 8 бит, в одном кбайте 1024 байт значит 1 4096