Определить сколько раз в числе встречаются цифры 0 и 5

@slav9n14 · Регистрация: 18.11.2014

Author24 — интернет-сервис помощи студентам

Привет всем.Помогите решить задачу. Дано натуральное число определить сколько раз в нем встречаются цифры 0 и 5.
Сделал вот так

Pascal

var
  s: string;
  i, f, ff: integer;
 
begin
  f := 0; ff := 0;
  writeln('Введите число');
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = '0' then inc(f);
    if s[i] = '5' then inc(ff);
  end;
  writeln('В этом числе цифра 5 встречалась ', ff, ' раз');
  writeln('В этом числе цифра 0 встречалась ', f, ' раз');
end.

Препод говорит делай без переменной string

@vint-81 · 18.11.2014, 19:05

Pascal

var x:longint;
    x0,x5:byte;
begin
 readln(x);
 x0:=0;x5:=0;
 while x>0 do
  begin
   if x mod 10 =0 then inc(x0);
   if x mod 10 =5 then inc(x5);
   x:=x div 10
  end;
 writeln('количество 0: ',x0);
 writeln('количество 5: ',x5);
end.

@slav9n14 · 18.11.2014, 19:14 **[ТС]**

только с переменной integer ни как нельзя сделать?

@Cyborg Drone · 19.11.2014, 01:23

Сообщение от slav9n14

только с переменной integer ни как нельзя сделать?

Конечно, можно.

@slav9n14 · 19.11.2014, 07:09 **[ТС]**

Cyborg Drone, помоги!

@Cyborg Drone · 19.11.2014, 12:47

Не по теме:

slav9n14, извините меня и на правду не обижайтесь. Вы - лентяй. Однако, у меня теплится надежда, что, если я Вам отвечу, то Вы прочитаете хотя бы сотню страниц любой книжки по любому паскалю. Итак, ложечку за маму, ложечку за папу...

Замените в программе слово "longint", а так же, по желанию, слово "byte" на слово "integer".

@slav9n14 · 19.11.2014, 17:14 **[ТС]**

Cyborg Drone, спасибо!

@JokeR.BY · 19.11.2014, 18:05

Не по теме:

:rofl:

@slav9n14 1 / 1 / 0 Регистрация: 18.11.2014 Сообщений: 34
	18.11.2014, 19:14 [ТС]	3
	только с переменной integer ни как нельзя сделать? 0

@Cyborg Drone Модератор 9874 / 5242 / 3306 Регистрация: 17.08.2012 Сообщений: 16,012
	19.11.2014, 01:23	4
	Сообщение от slav9n14 только с переменной integer ни как нельзя сделать? Конечно, можно. 0

@slav9n14 1 / 1 / 0 Регистрация: 18.11.2014 Сообщений: 34
	19.11.2014, 07:09 [ТС]	5
	Cyborg Drone, помоги! 0

@Cyborg Drone Модератор 9874 / 5242 / 3306 Регистрация: 17.08.2012 Сообщений: 16,012
	19.11.2014, 12:47	6
	Не по теме: slav9n14, извините меня и на правду не обижайтесь. Вы - лентяй. Однако, у меня теплится надежда, что, если я Вам отвечу, то Вы прочитаете хотя бы сотню страниц любой книжки по любому паскалю. Итак, ложечку за маму, ложечку за папу... Замените в программе слово "longint", а так же, по желанию, слово "byte" на слово "integer". 2

@slav9n14 1 / 1 / 0 Регистрация: 18.11.2014 Сообщений: 34
	19.11.2014, 17:14 [ТС]	7
	Cyborg Drone, спасибо! 0

@JokeR.BY
	19.11.2014, 18:05 Определить сколько раз в числе встречаются цифры 0 и 5 #8
	Не по теме: :rofl: 0