<span>for i:=1 to length(s) do
if s[i] in ['1'..'9'] then sum:=sum+ord(s[i])-48;//здесь ноли не считаем, от них сумма не меняется
writeln('Сумма цифр в тексте='sum);
if sum>5 then
begin
for i:=lengrh(s) downto 1 do
if s[i] in ['0'..'9'] then delete(s,i,1);
write(s);
end
else write('Цифры не удаляются!');</span>
Парень сидит и разговаривает по телефону по рисунку бы я сказала что он очень встревожен или удивлён от разговора видимо его что-то взволновало или встревожило или он услышал какую-то тему которая его удивила
Program tapsirmaC; var a,b,n,x,p:integer; input,output:text; begin p:=0; assign(input,'c.in'); assign(output,'c.out'); reset(input); rewrite(output); read(input,a,b,n); for x:= 1 to n do begin if a*x mod n = b then p:=p+1; end; write(output,p); close(input); close(output); end.
Если пешками ходить запрещено, то можно ходить только конями. Коней два, каждый может сходить на одно из двух полей, следовательно имеются 4 варианта ходов. После того, как ход белых был сделан, неопределенность в знаниях черных уменьшилась в 4/1=4 раза. 4=2², поэтому полученное количество информации составляет 2 бита.