365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.
55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.