т.к. неравенство 2 * 3 < 0 не выполняется, то значение этого логического выражения 0
Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
<span>End.</span>
а в чем проблема в excel переписываешь 10-11 ячейки объединяешь
колонку цену делаешь по центру на 5 минут работы
Ну как-то так
print("number 1 = ")
num1 = int(input())
print("number 2 = ")
num2 = int(input())
print("output: ", ((num1 * num1) + (num2 * num2))/ 2)