1 JPG
2-?
3 MP4 сто пудов честно отвечаю я шарю братан
Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
3<14 - истина
3<5 - истина
истина & истина = истина
Значением выражения будет являться истина.
Ответ: истина
4: 4 Кб = 4096 б
4096 б / 4096 символов = 1 б - на символ
алфавит содержит 2^8 = 256 символов
10: 375 б :500 = 6 бит на символ
мощность = 2^6 = 64 символа
<em>VAR</em>
<em> s: String;</em>
<em> s1,s2,i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> s1 := 0; s2 := 0;</em>
<em> for i := 1 to Length(s) do begin</em>
<em> if (s[i] = s[1]) then Inc(s1);</em>
<em> if (s[i] = s[Length(s)]) then Inc(s2);</em>
<em> end;</em>
<em />
<em> if (s1 > s2) then Write('Первая буква');</em>
<em> if (s1 < s2) then Write('Последняя буква'); </em>
<em> if (s1 = s2) then Write('Равное количество раз.'); </em>
<em>END.</em>