Как посчитать количество цифр 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. |
Цитата:
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 ссылается на саму себя |
Код:
var a,x,y,z,m:integer; |
Попробовала оба варианта, всё также получается в ответе 0
|
перепутал div и mod ...
|
Ну, коллеги - хвостом вас по голове - развели черт-те что на пустом месте.
Код:
var |
А нельзя как-нибудь заменить LongInt и Byte? (нам можно только integer использовать)
|
Цитата:
|
Спасибо большое, всё работает!
|
Часовой пояс GMT +4, время: 12:50. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.