в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за 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.
Ответ дал: Гость
картинка длжна быть в папке с программой и быть в формате bmp
uses graphabc;
var n: string; b: picture; s: integer;
begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.
Ответ дал: Гость
C: \конференция\участники
Ответ дал: Гость
var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.
Популярные вопросы