Зависит от железа но должна у меня тянет на ноуте
Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
Основные различия между форматами графических файлов состоят в алгоритме кодирования и хранения информации об изображении.
bmp - массив точек поштучно
jpg - массив блоков точек
gif сильно упакованный массив точек а для анимации в несколько слоев
tif - точки без сжатия + возможны слои
png - сжатие +возможна прозрачность
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
1) 133 кБайт = 136192 байт = 1089536 бит размер файла для передачи
2) 128 Кбит/сек = 131072 бит/сек скорость передачи по сети
3) 1089536 бит / 131072 бит/сек = 8, 31 сек - времени будет проходить передача этого файла
Ответ: 8,31 сек