//PascalABC.Net 3.2 begin var s:=readstring('Введите число: '); while '0' in s do delete (s, 1, pos('0', s)); while '5' in s do delete (s, 1, pos('5', s)); write (s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку