Дано целое число А. Определить количество цифр в числе, которые меньше 5

@Antisfen · Регистрация: 07.12.2013

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

Ребят, помогите решить задачу на паскале(желательно через Repeat): Дано целое число А. Определить количество цифр в числе, которые меньше 5.

@ПерС · 08.12.2013, 14:00

Pascal

var n:longint; s:integer;
begin
 s:=0;
 write('n='); read (n);
 repeat
  if n mod 10 < 5 then inc(s);
  n:=n div 10;
 until n=0;
 write ('OTVET=',s);
 readln;
end.

@Antisfen 0 / 0 / 0 Регистрация: 07.12.2013 Сообщений: 77
		1
	Дано целое число А. Определить количество цифр в числе, которые меньше 5 07.12.2013, 20:56. Показов 7597. Ответов 1 Метки нет (Все метки) Ребят, помогите решить задачу на паскале(желательно через Repeat): Дано целое число А. Определить количество цифр в числе, которые меньше 5. 0

Опции темы

Дано целое число А. Определить количество цифр в числе, которые меньше 5

Решение