в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k: integer;
m,h,r,s: real;
begin
readln(k);
s: =0;
for i: =1 to k do
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
s: =s+m;
end;
writeln(s);
end.
Ответ дал: Гость
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
var
x,a,b: real;
i: integer;
begin
x: =100000;
for i: =1 to 8 do
begin
a: =x*0.12;
b: =x*0.20;
x: =x+b-a;
end;
writeln(x);
end.
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Популярные вопросы