Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
Информация!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок
Существует т.к 10 17 27 - длины сторон.
Если сумма двух меньших сторон равна большей, то такой треугольник существует