Расположите в порядке возрастания следующие величины, указывая в ответе их буквенные обозначения: а) 33 бита б) 4 бита в) 4001 кбайт г) 4 мбайт д) 12298 гбайт е) 12 тбайт
277
422
Ответы на вопрос:
//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
Популярно: Информатика
-
hatidzemustafaeva08.09.2022 19:04
-
лунтик7230.03.2022 23:06
-
UzZzeR20.02.2022 00:51
-
Кристина111037306.04.2023 22:57
-
perelyana910.03.2020 22:20
-
sofiakobzeva13.05.2020 19:10
-
anyaadamchuk229.10.2022 04:56
-
pait17.02.2021 03:45
-
neologisms27.11.2022 20:54
-
14021980101.03.2022 23:35