Latikveks
6 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА - ПАСКАЛЬ! через IF
С клавиатуры вводятся радиус шара, высота цилиндра. Радиус шара и радиус цилиндра одинаковы. На экран вывести какой объем фигур больше и на сколько.
ФОРМУЛЫ
объем цилиндра 2πR*h
4/3*πr2(в квадрате)
ОТВЕТЫ
Loen
Jul 4, 2019
Var r,h:integer;
v1,v2:real;
begin
writeln(Ввод радиуса: );
readln(r);
writeln(Ввод высоты цилиндра: );
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1gt;v2 then write(Объем цилиндра больше)
else write(Объем шара больше);
end.
v1,v2:real;
begin
writeln(Ввод радиуса: );
readln(r);
writeln(Ввод высоты цилиндра: );
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1gt;v2 then write(Объем цилиндра больше)
else write(Объем шара больше);
end.
298
