Найдите и исправьте ошибки (если есть) в следующих именах файлов: 1) «Я и моя семья».doc
2) <1001>.xlsx
3) Где обедал воробей?txt
4) primer_1.bmp
5) /C/D/docx
6) рrемьера. pptx

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.

переведем 128000бит в кбайты для удобства: 128000бит=128000/8 байт( т.к. в одном байте 8 бит)=16000 байт=16000/1024 кбайт (т.к. в одном кбайте 1024 байт)=15,625 кбайт, следовательно скорость передачи данных равна 15,625 кбайт/с

500кбайт/15,625 кбайт/с=32 секунды займет передача файла

ответ: 32 секунды

var a,b,s: real;

begin

writeln("введите высоту куба");

readln(a);  

writeln("введие длину стороны куба");

readln(b);

s: =a*b;

writeln("площадь равна",s);

readln;  

end.