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.
нужно найти ошибки в программе.
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.
Объяснение:
Ты не поставил скобки, когда писал: a=b, a=c, b=c
Чуть ниже файлик, если надо.