Показать сообщение отдельно
Старый 30.03.2011, 19:33   #2 (permalink)
Серёга
красавчик :D
 
Аватар для Серёга
 
Регистрация: 15.07.2010
Сообщений: 3,624
Записей в дневнике: 11
Сказал(а) спасибо: 71
Поблагодарили 13 раз(а) в 10 сообщениях
Репутация: 15870
По умолчанию

Цитата:
Сообщение от @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 ссылается на саму себя
Серёга вне форума   Ответить с цитированием
Ads

Яндекс

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