в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за 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.
Ответ дал: Гость
первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)
результат выполнения
аб2в457где245*ж0247025020
2)
var s, r: string; i: integer;
begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.
Популярные вопросы