Между условиями стоит "И", следовательно, должны выполняться оба условия.
8 не кратно 3, 7 не кратно 3. 6 кратно 3, оно и является наибольшим.
Ответ: 6
Var y,x: string;
i,k: integer;
begin
k=0;
read (x);
for i:=1 to length(x) do
begin
y:=copy(x, i,3);
If (y='sin') then begin
delete (x, i, 3);
insert ('cos', x, i);
k:=k+1;
end;
writeln (x);
writeln (k);
end.
Это_____справка____________)
367. в инете полно сайтов по переводу)