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.
Спасибо
Ответ дал: Гость
1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.
Популярные вопросы