Из условия следует, что на одной странице
символа, а раз так, в тексте
символа. Следовательно, текст будет весить
бит, или 56320 байт, или 55 КиБ:)
Var s : string;
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.
Доп. Обратн Прямой
(11101111)(11101110)(10010001)
Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.
P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)