Выведи на экран большее из двух данных чисел.Запиши программу на языке Паскаль, выведи ответ на экран, если 1, 00583 и 2, 6462.

//Pascal
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);    
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
  S: string;
  i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
  Count := Count + 1;
  Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);   
writeln('Строка после удаления = ', S);
end. 

  
 4 задача:
 1) 32*60*10=19200 Кбит в 10 мин
2) 19200:8=2400 Кбайт в 10 мин


2 задача:
Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения 
2048+1024=3072(бит/сек) - скорость нового соединения 
73728/3072=24 секунды

3 задача:
256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду
файл в 2 Кибайта передается за 2048/32 = 64 секунды.
другое соединение - 2048 бит/с = 256 байт/с
за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт 

5-ую задачу
1 байт - 8 бит
х байт - 1024000 бит 
х = 1024000/8 = 128000 байт/с (скорость передачи данных) 
128000*5 = 640000 байт весит файл
 1 килобайт = 1024 байт 
640000/1024 = 625 Кбайт весит файл