Program n_3; var a, b, c, n, m: integer;
begin
readln (n);
m:=(n div 100)+((n div 10) mod 10)+(n mod 10);
if (m mod 2 = 0) then write(‘true’);
if (m mod 2 = 1) then write(‘false’);
readln (a,b,c);
if a=b and a=c and b=c then write(‘true’)
else write(false);
end.
нужно найти ошибки в программе.
begin
readln (n);
m:=(n div 100)+((n div 10) mod 10)+(n mod 10);
if (m mod 2 = 0) then write(‘true’);
if (m mod 2 = 1) then write(‘false’);
readln (a,b,c);
if a=b and a=c and b=c then write(‘true’)
else write(false);
end.
нужно найти ошибки в программе.