Здесь ошибка в несоответствии типов данных в переменных.
это значит, что Вы присвоили переменным типы, но в них записываете несоответствующие данные.
в часности, тип bool или boolean - это особый тип данных. переменные этого типа могут иметь только два значения: true (правда) и false (неправда), но никак не числа, а в строчках 13, 16 и 19 переменной f были присвоены числовые значения. ошибка там.
p.s. если просить программу вывести переменную типа bool на экран, будет написано true или false.
26 = 35 = 3 * 7^1 + 5 * 7^0 = 35; Ответ: 7.
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Начало
ввод числа
последняя цифра числа 0?
да нет ->Нельзя
Можно
Конец