Var S:string; i,k:integer; Begin Write('Введите строку: ');ReadLn(S); LowerCase(S); k:=0; For i:= 1 to S.Length-2 do if S[i] = 'д' then if S[i+1] = 'о' then if S[i+2] = 'м' then k:=k+1; WriteLn(k) End.
Var S:string; i,d1,d2,d3:integer; Begin WriteLn('Введите строку:'); ReadLn(S); i:=0; Repeat i+=1 Until S[i] = ' '; d1:=i-1; Repeat i+=1 Until S[i] = ' '; d2:=i-d1-2; Repeat i+=1 Until i = S.Length; d3:=i-d2-d1-2; if d3 < d1 then d1:=d3; if d2 < d1 then d1:=d2; WriteLn(d1) End.
Var A,i,S:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); S:=0; For i:= 1 to 6 do Begin S:=S + (A mod 10); A:=A div 10; End; WriteLn('S = ',S) End.
И так:
Var A,S:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); S:=0; S:=A mod 10; A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); WriteLn('S = ',S) End.
Или так
Var A:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10)) End.
Y = 11 Кбайт
K = 11 264 Символов
Найти: N
1) N = 2i
2) Y = k * i , i = Y / k
Переведем 11 Кбайт в биты, и подставим в формулу:
11 * 1024 * 8 = 90 112 бит
3) 90 112 = 11 264 * i
i = 90 112 / 11 264
i = 8 бит
4) N = 2i
N = 28
N = 256