Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Информатика - это наука о процессах передачи,хранения,обработки информации.
Дано: растр 1024*768 N=16777216
Найти: I - объем
Решение: N=
, где i- глубина цвета, N -палитра
16777216=
, i=24 бит
I=1024*768*24 бит=18874368 бит=2359296 байт=2304Кб=
2,25Мб
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;<span>end.</span>