Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза

@Dmitriy94 · Регистрация: 15.12.2012

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

Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза. помогите написать программу решения

@Dem0Men · 15.12.2012, 14:54

Вот всё решение:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, math;
 
var
  N,c3,i : Integer;
 
begin
  ReadLn(N);
  c3 := 0;
  for i := 0 to 3 do
  begin
    if (((N div round((power(10,i)))) mod 10) = 1) then Inc(c3);
  end;
  if c3 = 3 then Write('OK!');
  ReadLn;
end.

Неужели самому это так трудно написать?

@Dmitriy94 0 / 0 / 0 Регистрация: 15.12.2012 Сообщений: 12
		1
	Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза 15.12.2012, 13:56. Показов 1596. Ответов 1 Метки нет (Все метки) Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза. помогите написать программу решения 0

	15.12.2012, 14:54