Var a: string; i: integer; begin read(a); for i: =1 to length(a) do begin fif a[i] in ['a'..'z'] then a[i]: =upcase(a[i]) end; writeln(a); end.
Спасибо
Ответ дал: Гость
сначала плывут 2 мальчика, один остается там, а второй возвращается. мальчик остается на берегу, а на другой берег плывет один солдат. он остается там, а сюда приплывает обратно мальчик. опять плывут 2 мальчика, опять один остается, а другой возвращается с лодкой. плывет второй солдат, а с лодкой возвращается второй мальчик. солдаты на том берегу, а мальчики и лодка - на этом. вуаля!
Популярные вопросы