Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
первый для однократной записи
а второй для перезаписывания(тоесть на нем возможно перезаписывание)
а)
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);
(2)-двоичная,(8)-восьмеричная.1)11011(2)= 33(8)=27(10)=1в(16)2)101111(2)=57(8)=47(10)=2f(16)3)11001100(2)=294(8)=204(10)=cc(16)4)100100111000(2)=4470(8)=2360(10)=938(16)
program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.
Популярные вопросы