Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
begin
s: =0;
for i: =1 to 6 do
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
end;
writeln(s);
end.
a,m,n,k: real;
readln(m,n,k);
if (m+n+k)< (m*n*k) then
a: =m+n+k
else
a: =m*n*k;
writeln(a);
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
Популярные вопросы