Подсчет количества цифр равных 3 в числе

@Madness- · Регистрация: 19.10.2012

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

Вводиться число и в этом числе подсчитать количество цифр равно трем

P.S Пожалуйста если не трудно через Лазарус,без массив и с объяснинем пожалуйста

Добавлено через 1 час 51 минуту
UP UP UP

@КонецСвета · 23.10.2012, 00:11

без массивов, с объяснением...

Pascal

uses crt;
var n: longint;
    k: byte;
    
begin
write('n='); readln(n);        //запрашиваем число
if n<0 then n:=n*(-1);        //если число отрицательно, превращаем его в положительное
while n>=1 do                 //до тех пор, пока число больше 1, будем "отрывать от него по одной цифре"
      begin
      if n mod 10=3 then inc(k); //если остаток от деления числа на 10 =3 (то есть "отрываемая последняя цифра числа равна 3"), увеличиваем счетчик на 1
      n:=n div 10;              //убираеми последнюю цифру (мы ее уже рассмотрели) целочисленным делением на 10
      end;
writeln(k);                   //выводим ответ
end.

Добавлено через 31 секунду
Madness-, кстати, в следующий раз создавайте тему в Lazarus https://www.cyberforum.ru/lazarus/, чтобы ответ получить для Lazarus. А это - для Pascal

@Name95 · 19.12.2012, 15:47

тоесть это решение норм для паскаля?

Добавлено через 1 минуту
КонецСвета, тоесть это решение норм для паскаля?

@КонецСвета · 19.12.2012, 16:36

Name95, да

@Madness- 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 12
		1
	Подсчет количества цифр равных 3 в числе 22.10.2012, 23:31. Показов 3386. Ответов 3 Метки нет (Все метки) Вводиться число и в этом числе подсчитать количество цифр равно трем P.S Пожалуйста если не трудно через Лазарус,без массив и с объяснинем пожалуйста Добавлено через 1 час 51 минуту UP UP UP 0

@Name95 1 / 1 / 0 Регистрация: 19.12.2012 Сообщений: 12
	19.12.2012, 15:47	3
	тоесть это решение норм для паскаля? Добавлено через 1 минуту КонецСвета, тоесть это решение норм для паскаля? 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	19.12.2012, 16:36	4
	Name95, да 0

Опции темы