Пользователь вводит число, программа должна вывести на экран 3 случайных числа , не с введённым пользователем числом . ( паскаль) я написала , но проблема в условии ( сейчас просто цикл) . исправьте ! uses crt; var a, b, d: integer; begin readln (a); randomize; for b: =1 to 3 do begin d: =random (3); write (' ', d, ' '); end; end.

При таком задании придётся переделать цикл полностью. В частности, придётся отказаться от цикла for и использовать while. Также придётся ввести индекс, определяющий количество значений, не равных введённому. Используем переменную b для этой цели.
Переделывая твой код получаем следующее.
uses crt;
var a,b,d,i:integer;
Begin
  readln (a);
  randomize;
  b := 0;
  while i < 3 do
  begin
    d:=random (10);
    if d <> a then
    begin
     write (' ',d,' ');
     i += 1;
    end;
  end;
end.

Всё элементарно!
Давайте посчитаем скорость передачи без сжатия:

Объём файла: 60Мб
Скорость передачи: 222бит/сек

Для начала переведем 60мб в биты:

60*1024 = 61440 кбт
61440*1024=62914560 байт
62914560*8=503316480 бит

А теперь посчитаем за сколько времени передастся файл без сжатия:
503316480/222=2267191,35 секунд

Отлично, теперь получим размер сжатого файла:
503316480*0,7=352321536 бит

А передастся файл за:
352321536/222=1587033,95 секунд

Но мы не учли скорость архивации и разархивирования:
1587033,95 + 15 + 7 = 1587055,95 секунд

Ну и видно, что файл даже с временем на сжатие будет передан быстрее.

#include <iostream>

using namespace std;

int main() {

const int M = 3;

const int N = 4;

int matrix [M][N] = {};

int k,s=0,pr=1;

cout << "Введите k:" << endl;

cin >> k;

for (int i = 0; i < M; i++) { //забиваем матрицу случайными числами

 for (int j = 0; j < N; j++) {

  matrix[i][j] = rand() % 10;

 }

}

for (int i = 0; i < M; i++) { //находим сумму и произведение

 s += matrix[i][k-1];

 pr *= matrix[i][k-1];

}

for (int i = 0; i < M; i++) { //выводим матрицу на экран

 for (int j = 0; j < N; j++) {

  cout << matrix[i][j] << " ";

 }

 cout << endl;

}

cout << s << endl << pr; //выводим на экран сумму и произведение элементов

return 0;

}