Привет. ПОМОГИТЕ РЕШИТЬ ОДНУ ПРОБЛЕМУ. Вот условие программы:
Напечатать все целые числа из отрезка [1,100], сумма цифр которых является четным числом. Подсчет суммы цифр числа и определение их четности оформить в процедуре (входной параметр: целое число; выходной параметр: логическая переменная)
А вот решение:
Код:
uses
crt;
var
i:integer;
function sum(a:integer):boolean;
var
s:integer;
begin
s:=0;
while a<>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
sum:=s;
end;
begin
clrscr;
for i:=1 to 100 do if not odd(sum(i)) then write(i,' ');
readln
end.
Когда я её компилирую, мне выдается ошибка под названием НЕСООТВЕТСТВИЕ ТИПОВ, и показывает на что именно:
.......
end;
sum:=s
;
end;
.......
Мне бы хотелось узнать, что именно здесь не так и как устранить эту ошибку.