1) перевести целые числа из десятичной системы счисления в троичную: 65, 325, 121. 2) перевести целые числа из десятичной системы счисления в восьмеричную: 6435, 856 , 89, 998.
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
a)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a>b then Writeln('Первое число больше второго') else if b>a then Writeln('Второе число больше первого') else Writeln('Числа равны') end.
b)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a<b then Writeln('Первое число меньше второго') else if b<a then Writeln('Второе число меньше первого') else Writeln('Числа равны') end.
tofilev
16.04.2023
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var st:='balloon duster tooth loot cooperation'; // не вводим // var st:=ReadlnString; // если хочется вводить var s:=st.ToWords; // массив из слов s[i] s.Println; // показать исходный массив слов // собственно решение var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова s[i]:=s[i].Replace('oo',''); s.Println; // результат end.
1) перевести целые числа из десятичной системы счисления в троичную: 65, 325, 121. 2) перевести целые числа из десятичной системы счисления в восьмеричную: 6435, 856 , 89, 998.
325 = 110001
121 = 11111
2) 6435 = 14443
856 = 1530
89 = 131
998 = 1746