Сформулируйте условие программы
program inr1;
type art=record
nume:string;
nr_loc:longint;
end;
var a:array[1..20] of art;
n,i:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('имя',i,'=');readln(a[i].имя);
write('nr_loc=');readln(a[i].nr_loc)
end;
writeln(Все города с населением более 100000 человек':');
for i:=1 to n do if a[i].номер_место>=100000 then writeln(a[i].имя);
readln;
end.
Итак. Мы имеем строку из 72 пятерок.
Сначала все пятерки заменяются на тройки (приоритетным действием у нас является замена первого вхождение трех идущих подряд пятерок тройками, а т.к. 72 кратно трем, то преобразованная строка будет состоять только из троек). После этого у нас остается строка, состоящая из 24 троек.
555 555 555 555 ... 555 => 333 333 333 333 333 333 333 333
Затем происходят такие действия: три последовательно идущие тройки заменяются на пятерки, а после того как таких пятерок будет три, они заменятся на одну тройку. Следственно 9 троек заменяются на одну. После проведение данных действий у нас остается 24-9+1-9+1=16-9+1=8 троек.
333 333 333 333 333 333 333 333
555 333 333 333 333 333
333 333 333 333 333 3
555 333 333 3
333 333 33
Так как мы уже не можем получить заменой троек хотя бы три пятерки, то первые вхождения трех подряд идущих троек заменяются пятерками.
333 333 33
5 333 33
5533
ответ: 5533