Ответ:
var n: longint;
s: string;
a, b, c, d, e, f: byte;
k: integer;
begin
read(n);
str(n,s);
val(s[1],a,k); val(s[2],b,k);val(s[3],c,k);
val(s[4],d,k); val(s[5],e,k); val(s[6],f,k);
if a+b+c=d+e+f then write('true') else write('false')
end.
Объяснение:
Поменяй что-то, чтобы не спалили, что это не твое
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var n: longint;
s: string;
a, b, c, d, e, f: byte;
k: integer;
begin
read(n);
str(n,s);
val(s[1],a,k); val(s[2],b,k);val(s[3],c,k);
val(s[4],d,k); val(s[5],e,k); val(s[6],f,k);
if a+b+c=d+e+f then write('true') else write('false')
end.
Объяснение:
Поменяй что-то, чтобы не спалили, что это не твое