<span>var
</span>f, s: longint<span>;
n</span>, i: byte<span>;
</span><span>begin
</span>write('N = '); readln(n)<span>;
</span>f:= 1<span>;
</span>for i:=2 to n <span>do
begin
</span>f:= f * I;
s:=s+f;
end;<span>
</span> writeln('Summ = ', s)<span>;</span><span>
</span>end<span>.</span>
1 дискета
2cd rom
3 dvd rom
4 флеш
5 жесткий диск
Ответ:
ftp://FedAndr. edu/prog/about.pdf
Объяснение:
адресация в Интернете:
протокол :// сервер / каталог (каталоги) / файл
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
#include <cmath>
#include <iostream>
#include <iomanip>
int main()
{
float
a,b,
z;
std::cin >> a >> b;
z = ((a-1)*sqrt(a) - (b-1)*sqrt(b))/
(sqrt(pow(a, 3) * b) + a*b + pow(a, 2) - a);
std::cout << "Значение выражения 1 = " << std::setprecision(3) << z << std::endl;
z = (sqrt(a) - sqrt(b))/
a;
//std::cin >> a >> b;если значения нужны другие.
std::cout << "Значение выражения 2 = " << std::setprecision(3) << z;
}
g++ compiler