Решение показано в прилагаемом файле.
Ответ: 77
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
Большая скорость = 131072 бит/с
Меньшая скорость = 65536 бит/с
Полный объем = 67108864 бит
Начальный объем = 8388608 бит
Время скачивания начального объема = 8388608 / 131072 = 64.0 c
Время скачивания полного объема = 67108864 / 65536 = 1024.0 c
Общее время = 64.0 + 1024.0 = 1088.0 c = 18.133333333333333 минут
Var s: string;
ch: char;
i,d,c,k: integer;
begin
write('слово: '); readln(s);
i:=1; d:=0; c:=0; k:=0;
repeat
ch:=s[i];
case ch of
'd': d:=d+1;
'c': c:=c+1;
'k': k:=k+1;
end;
i:=i+1;
until i>length(s);
writeln('кол-во d = ',d,' кол-во c = ',c,' кол-во k = ',k);
<span>end.
</span>
Корова, рагу, проволка, дереве, а вот последнее затрудняюсь. может романы