Измалков
7 год назад
А)напишите
Срочна , плачу много баллов!
ОТВЕТЫ
Мокиевич
Jul 12, 2019
Const g=9.8;
const d=1200;
var p,h: array [1..6] of real;
i:integer;
begin
for i:=1 to 6 do begin
write(h[,i,]= );
readln(h[i]);
end;
for i:=1 to 6 do begin
p[i]:=d*g*(h[i]);
writeln(при h = ,h[i], получается ,p[i]);
end;
end.
const d=1200;
var p,h: array [1..6] of real;
i:integer;
begin
for i:=1 to 6 do begin
write(h[,i,]= );
readln(h[i]);
end;
for i:=1 to 6 do begin
p[i]:=d*g*(h[i]);
writeln(при h = ,h[i], получается ,p[i]);
end;
end.
40
Смежные вопросы:
