Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через данное соединение заняла 34 секунд. Определи размер файла в Кбайт.

1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.

//Dev-C++ 5.11

#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;

void cher(int ar1[],int ar2[],int& ar3, int n);

int main(void)
 {int* ar1,*ar2,*arfin;
 int n,a;
 cin>>n;
 ar1=new int[n];
 ar2=new int[n];
 arfin=new int[n*2];
 cout<<"Random or reading? 1-rand, other-read";
 cin>>a;
 if (a==1)
  {srand(time(NULL));
  for(int i=0;i<n;i++)
   {ar1[i]=rand()%10;
   cout<<ar1[i]<<' ';}
   cout<<"\n";
  for(int i=0;i<n;i++)
   {ar2[i]=rand()%10;
   cout<<ar2[i]<<' ';}
   cout<<"\n";}
 else
 {for(int i=0;i<n;i++)
  cin>>ar1[i];
 for(int i=0;i<n;i++)
  cin>>ar2[i];}
 cher(ar1,ar2,*arfin,n*2);
 for(int i=0;i<n*2;i++)
  cout<<arfin[i]<<' ';
 delete []ar1;
 delete []ar2;
 delete []arfin;
 return 0;}

void cher(int ar1[],int ar2[],int& ar3, int n)
 {int* ar3f=&ar3;
 int i1,i2=0;
 for(int i=0;i<n;i++)
  if(i%2==0)
   {ar3f[i]=ar1[i1];
   i1++;}
  else
   {ar3f[i]=ar2[i2]; i2++;}}