1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.
Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал
01000001.10000000.11111111.00001100 первый ip-адрес
11000000.00110000.00000000.00011000 второй ip-адрес
Объем видеопамяти =
5*12*256*512 бит = 5*12*256*512 / 8 байт = 5*12*256*512 / (8*1024) Кбайт = 960 Кбайт