Одноклассники передают друг другу пакет документов объёмом 32 Мбайт. Игорь и Степан используют только канал связи, не архивируя документы. Скорость передачи данных — 223 бит/с.
Роман и Даниил обмениваются этими же данными, используя архиватор. При этом Роман сжимает данные в архив за 18 с, передаёт их со скоростью 223 бит/с, а Даниил распаковывает эти данные за 4 с. Объём заархивированных документов составляет 28 % от начального.

Узнай разницу во времени передачи документов. (В ответе запиши только число).

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

желтый знак - нехватка памяти

все остальное - размер