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 v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
<span>Фонетика-это раздел науки о <span>языке, в котором изучаются звуки и их чередования, а также ударение, интонация, слогораздел.</span></span>
Давно пользуясь этим антивирусов, но там есть 2-е версии платная и бесплатная.
В начале я выбрала платную, там он проводит проверки автоматически и сам проверяет любые файлы, а так же там открыты и другие функций. Ну а в бесплатной приложения нужно проверять самому,а ещё половина функций закрыта.