Королевство чисел Алиса и Боб стали королями в королевствах на множестве натуральных чисел. Подданными Алисы являются все натуральные числа, которые делятся на 3 без остатка, а все остальные числа стали подданными Боба. Алиса дружит с Бобом, и они хотят, чтобы их подданные тоже дружили между собой. Они разбили все числа на пары, причем ii-тое по порядку число из королевства Алисы будет дружить с ii-тым по порядку числом из королевства Боба. Вам задан набор из nn чисел. Напишите программу для нахождения друга каждого из чисел.
Первые 10 чисел из королевства Алисы — это \{3,6,9,12,15,18,21,24,27,30,\ldots\}{3,6,9,12,15,18,21,24,27,30,…} Первые 10 чисел из королевства Боба —это \{1,2,4,5,7,8,10,11,13,14,\ldots\}{1,2,4,5,7,8,10,11,13,14,…}. Таким образом, парами друзей являются (3,1)(3,1) (6,2)(6,2) (9,4)(9,4) и так далее.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; Writeln(s.Inverse) end.
Пример Я пишу программу на языке Паскаль ьлаксаП екызя ан уммаргорп ушип Я
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); Write('Введите два символа СЛИТНО для сравнения их частоты: '); var ab:string; Readln(ab); var a:=ab[1]; var b:=ab[2]; var ka:=0; var kb:=0; for var i:=1 to s.Length do if s[i]=a then ka+=1 else if s[i]=b then kb+=1; if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b) else if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b) else if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково') else Writeln('Символы ',a,' и ',b,' отсутствуют') end.
Пример Введите строку: а роза упала на лапу азора Введите два символа СЛИТНО для сравнения их частоты: ао Символ а встречается чаще, чем о
Полная.
"У школы №3 1 сентября в 10:00 будет проведена линейка"
Полезная.
Состав принимаемого лекарства.
Формулы по физике во время экзамена.
Актуальная.
Курс валюты.
Погода на улице, когда вы выходите из дома.
Достоверная.
"Россия выиграла у Испании на ЧМ за счет пенальти."
Данные, записанные в документах.
Точная.
"Земля - шарообразная"
Понятная.
"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )
Объективная.
"Высота этой скалы 100 м." (вместо "Скала довольно высокая").