Question

Напишите программу в Паскале, высчитывающую объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант.

В ней не должно быть команды процедура (procedure)

Неверно - отправлю жалобу, ваш ответ удалят, а баллы снимут. Не пытайтесь.

Answer 1

Program Z;

const pi = 3.14;

var R,h,V:real;

begin

 V:=0;

 writeln('Введите R, затем h');

 read (R,h);

 V:=pi*sqr(R)*h;

 write(V);

end.

Answer 2

Ответ:

const p = 3.14;

var h, r, v: real;

begin

clrscr;

write('H = ');

Readln(h);

write('R = ');

readln(r);

V := p * sqr(r) * h;

writeln('v =',v);

end.