А) _кбайт = _байт б) _кбайт = _байт = 20.000 бит в) _гбайт = _мбайт = кбайт г) _гбайт = 256 мбайт = _кбайт.

1кбайт = 1024 байт (2500/1024) 2,44140625 кбайт = (20000/8) 2500 байт = 20 000 бит 1 гбайт = 1024 мбайт = 1048576 кбайт (256/1024) 0,25 гбайт = 256 мбайт = (256*1024) 262144 кбайт

Var n : integer;   begin  write('введите число '); readln(n);   case n of  20 : writeln('двадцать');   21 : writeln('двадцать один');   22: writeln('двадцать два ');   23 : writeln('двадцать три');   24: writeln('двадцать четыре');   24: writeln('двадцать пять');   else writeln('вы ввели недопустимую число! ')  end;   end.  чисел брат дофига ну ты понял  а если вы кейс не проходил то используй просто  if n=20 then write('двадцать'); ))

Uses crt; var max,i,min,now: longint; begin clrscr;   writeln (' vvedite kol-vo chisel '); readln (n);   write  ('vvedite 1  chislo:   ');                             readln(now); max: =now; min: =now; for i: =2  to n do begin write ('vvedite ',i, ' chislo: ');                         readln(now); if now> max then max: =now; if now< min then  min: =now;               end; writeln ('minimum raven: ',min);   write ('maximum reven: ',max); readln; end.