Определить сколько чисел, меньше заданного, содержат 2 единицы

@Rakan · Регистрация: 04.11.2015

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

Помогите сделать пожалуйста.Надо задать 4-ех значное число и определить сколько чисел меньше заданного содержат 2 единицы.

Добавлено через 2 часа 18 минут
Очень нужно помогите пожалуйста

@Kapytan · 05.11.2015, 08:33

Обязательно поможем. Только сами сначала хоть что-нибудь сделайте.

@vint-81 · 05.11.2015, 09:10

Pascal

var n,rez:integer;
function k1_2(a:integer):boolean;
var i,k:integer;
begin
 k:=0;
 for i:=1 to 4 do
  begin
   if a mod 10 = 1 then inc(k);
   a:=a div 10
 end;
 if k=2 then k1_2:=true
        else k1_2:=false
end;
begin
 repeat write('1000<=n<=9999, n = ');readln(n);until (n>999)and(n<10000);
 rez:=0;
 for n:=1000 to n-1 do if k1_2(n) then inc(rez);
 writeln('rez: ',rez)
end.

@Rakan 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 13
		1
	Определить сколько чисел, меньше заданного, содержат 2 единицы 05.11.2015, 00:15. Показов 1322. Ответов 2 Метки нет (Все метки) Помогите сделать пожалуйста.Надо задать 4-ех значное число и определить сколько чисел меньше заданного содержат 2 единицы. Добавлено через 2 часа 18 минут Очень нужно помогите пожалуйста 0

@Kapytan 133 / 148 / 64 Регистрация: 27.06.2013 Сообщений: 536
	05.11.2015, 08:33	2
	Обязательно поможем. Только сами сначала хоть что-нибудь сделайте. 0

	05.11.2015, 09:10

Опции темы

Определить сколько чисел, меньше заданного, содержат 2 единицы

Решение