Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
Ну, без высоты же не обойтись
var
a, b, h: <em>real</em>;
begin
readln(a, b, h);
writeln('S = ', (a * 0.5 + b / 2) * h);
<span>end.</span>
1)механические весы
2)компьютеры на транзисторах компьютер 6600 фирмы CDC
Растр выглядит в виде точек - Пикселей.
<span>Векторное изображение задается формулами. </span>
Сложно . В каком ты классе