Скорость передачи данных через adsl-соединение равна 1024000 бит/с. передача файла через данное соединение заняла 5 секунд. определите размер файла в килобайтах.

Чтобы найти размер файла надо скорость умножить на время.
1024000*5=5120000 бит
Переводим биты в байты (делим на 8)
5120000/8=640000 байта
Переводим байты в килобайты (делим на 1024)
640000/1024=625 килобайта
ответ: 625 килобайт

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5

Var i,ne,ch,n:integer;
      a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
      begin
      a[i]:=random(80)+20;
      write(a[i],' ');//Вывод на экран полученного массива                         
      if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
      end;                      //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.