Из теста по программированию: даны фрагменты программ, нужно написать какой результат выводится на экран 8)сравните две строки: 'belka ' 'bylka ' 'belka ' 'belka ' 'bylka ' 'bylka ' 'bylka ' 'bylk '

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

по сути простенькая.

v=u*t

объем = скорости передачи умноженная на время

v= 7680*90 (90сек=1.5 мин. секунды это система си)

v= 691200бит

v одного символа 16бит, а всего 400 символов на странице => вес страницы равен 16*400=6400 бит

чтобы найти количество страниц надо общий объем поделить на объем одной страницы.

691200/6400=108

ответ: всего было передано 108 страниц.