Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i,n,s: nteger;
begin
read(n);
for i : = 1 to n do
if i mod 2 = 0 then s: = s-1/i;
else s: = s+1/i;
writeln(s);
end.
290*39*67=757770 - всего символов
для кодирования 757770 символов потребуется 757770 байтов
757770байт < 1,44 мбайт
да, книга поместиться на дискетку
а)
var
p,d,h: real;
readln(h);
p: =1200*9.8*h;
writeln(p);
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
Популярные вопросы