Төменде берілген программа кодтарын жазуда жіберілген қателерді тап

​

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.

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

v=u*t

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

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

v= 691200бит

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

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

691200/6400=108

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