Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication4 { class program { static void main(string[] args) { bool result = false; console.writeline("введи строку"); string str = console.readline(); for (int i = 0; i < str.length - 1; i++) { if (str.substring(i, 1) == str.substring(i + 1, 1)) { result = true; break; } } if (result == true) console.writeline("да, встречаются"); else console.writeline("нет, не встречаются"); console.readkey(); } } }
kashxb2056
10.04.2021
//pascalabc.net 3.2 сборка 1318 //очередное решение "в лоб" var n,i,j,max: integer; s,curr: string; b: boolean=false; begin readln(n); max: =-1; s: =inttostr(n); for i: =1 to length(s) do begin curr: =''; for j: =i downto 1 do begin curr: =s[j]+curr; if frac(sqrt(strtoint(=0 then begin b: =true; if sqrt(strtoint(curr))> max then max: =round(sqrt(strtoint(; end; end; end; if b then writeln(max) else writeln('0'); end. пример ввода 1: 164 пример вывода 1: 8 пример ввода 2: 523 пример вывода 2: 0
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько значительных цифр в записи десятичного числа 357 в системе счисления с основанием 6?