1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
Искомый промежуток времени - х
Время ретрансляции - t1
Время задержки до ретрансляции - t2
Скорость Васиного интернета - с1 = 2^17 бит/сек
Скорость передачи Вася - Петя - с2= 2^16 бит/сек
t1 = Объем первичных данных (1024 кбит) / с1
t1 = 1024 кбайт / 2^17 бит(сек) = 2^20 * 2^3 бит(сек) / 2^17 бит = 2^6 сек = 64 сек;
t2 = полный объем данных( 8 Мбайт) / с2
t2 = 8 Мбайт /2^16 бит(сек) = 2^3*2^20*2^3 бит/2^16 бит(сек) = 2^26/2^16 = 2^10 сек = 1024 сек
X = t1+t2 = 1024+64 = 1088 сек