1)<span>89
2)30
3)219
вот )))</span>
Первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do
s:=s*d[i];
writeln(s)
<span>end.</span>
Program room;uses crt;var a, b, h : integer; v, s, l, k : real;begin write('Введите длину, ширину и высоту комнаты : '); readln(a, b, h); l:= 10.5; k:= 0.5; v:= a * b * h; s:= l * k; writeln('Ответ : ',v/s :5:2);end.
143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2