Показать сообщение отдельно
Старый 30.03.2011, 18:44   #1 (permalink)
@lis@
Новичок
 
Регистрация: 30.03.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Как посчитать количество цифр 5 в числе?

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070