Question

Составить программу и с ее помощью вычислить для нескольких значений. PascalABC

Answer 1

Ответ:

Знайти площу поверхні циліндра з радіусом основи r і висотою h:

var

 S, r, h: real;

begin

 write('r = ');

 read(r);

 write('h = ');

 read(h);

 S := 2*Pi * r*h + 2*Pi * r*r;

 writeln(round(S));

end.