Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
б,в,г,е - лцд остальное к трубке
квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата
на qbasic
? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"
input a; b
c=a*2 диаметр
g=sqr(a*a+a*a) диагональ
if c> g then 1 else 2
1 ? "квадрат вписан в круг"
goto 3
2 ? "квадрат не вписан в круг"
3 end
program month;
uses crt;
var a: integer;
clrscr;
write('vsatvte chislo');
read(a);
if (a=12) or (a=1) or (a=2) then write('zima')
else if (a=3) or (a=4) or (a=5) then write ('vesna')
else if (a=6) or (a=7) or (a=8) then write ('leto')
else write('oseni');
repeat until keypressed;
Популярные вопросы