Var n,n1,n2,n3: integer; begin; readln (n); n1: =n mod 10; n: =n div 10; n2: =n mod 10; n3: =n div100 - id159816520200709 от Enigma0125 09.07.2020 14:21

Question

Информатика: Var n,n1,n2,n3: integer; begin; readln (n); n1: =n mod 10; n: =n div 10; n2: =n mod 10; n3: =n div100 if (n1=n2) and (n2=n3) then writeln ( y ) else writeln ( n ); end. ошибка в как исправить и описание. программа паскаль.

Enigma0125 · Accepted Answer

((7 - 2 - 2)^2 )^2  - 2 = 79 #Ruby22 def f0(number, log)     return [number * number, ( + log + )^2 ] end def f1(number, log)     return [number - 2, log + - 2 ] end end_num = 79 for n in 1..5     for i in 0..2**n-1         s = ( 000000000000000000000000000000 + i.to_s(2))[-n..-1]         start_num = 7         log = start_num.to_s         for k in 0..s.size-1             start_num, log = f0(start_num, log) if s[k] == 0             start_num, log = f1(start_num, log) if s[k] == 1             # break...

Var n,n1,n2,n3: integer; begin; readln (n); n1: =n mod 10; n: =n div 10; n2: =n mod 10; n3: =n div100 if (n1=n2) and (n2=n3) then writeln ('y') else writeln ('n'); end. ошибка в как исправить и описание. программа паскаль.

MOGZ ответил