Цитата:
Сообщение от @lis@
z:=z+1;
|
не уверен, что правильно, но попробуйте изменить так :
var a,x,y,z,m,b:integer;
begin
write ('Введите число: ');
read(a);
x:=a;
z:=0;
repeat
y := x mod 10;
if y=5 then
b:=z+1;
m:=y div 10
until m=0;
write('Количество цифр 5: ', b)
end.
мне показалось, что z ссылается на саму себя