Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
____________________
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
_____________________
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
I=1 s=0+1*1=1
i=2 s=1+2*2=5
i=3 s=5+3*3=14
i=4 s=14+4*4=30
i=5 s=30+5*5=55
Ответ: s=55
6) а)408:17=24(10)=11000(2)
б) 2410(8)=10100001000(2)=1288(10); 27(8)=10111(2)=23(10); 1288:23=56(10)=111000(2)=70(8)
в) D4A(16)=110101001010(2)=3402(10); 1B(16)=11011(2)=27(10); 3402:27=126(10)=1111110(2)=7E(16)