Program n_3; var a, b, c, n, m: integer; begin readln (n); m:=(n div 100)+((n div 10)...

Question

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. нужно найти ошибки в программе.

Answer 1

Ответ:

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

Чуть ниже файлик, если надо.