Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var
v,r,h: real; begin write('r='); readln(r); write('h='); readln(h); v: =pi*sqr(r)*h; write('v=',v); end.
program nm12;
var a, d : integer;
begin
writeln (' vvedite diametr kruga i storony kvadrata ');
readln (d);
readln (a);
if d< =a then writeln (' krug pomestits9 v kvadrate ')
else writeln (' krug ne pomestits9 v kvadrate ');
readln;
end.
Популярные вопросы