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

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

fa98ca1fbbb220ffac165fa88562e677.pas