Мощность компьютерного аофавита=256 символов. Определим вес одного символа i=8 бит (2 в 8 степени даст 256);
количество информации определяется по формуле I=K*i
K=U*t
I=U*t*i
I=90*15*8=10800 бит = 1350 байт
Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2
#include<iostream>
using namespace std;
int main(){
int l,v1,v2,t;
cin>>l>>v1>>v2>>t;
int x1 = (t * v1)%l,x2 = (-t*v2)%l;
if(x1<0) x1=l-x1;
if(x2<0) x2=l+x2;
cout<<min(abs(x1-x2),abs(l-x1-x2));
}
Смотри вложение
................................
Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.