Найти сколько раз встречается цифра 3 в записи числа n^3

@SKeLeToN · Регистрация: 06.05.2010

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

Найти сколько раз встречается цифра 3 в записи числа N^3(-1000<=N<=1000).
Строки не использовать.

@Puporev · 30.09.2010, 10:24

Pascal

n:=abs(n);
k:=0;
while n>0 do
 begin
  if n mod 10=3 then k:=k+1;
  n:=n div 10;
 end;

@SKeLeToN · 30.09.2010, 10:49 **[ТС]**

мне надо для N в кубе

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

@Inadequate · 30.09.2010, 11:11

Pascal

uses
  Crt;
var
  n,tmp: LongInt;
  c: byte;
begin
  ClrScr;
  repeat
    Write('N: ');
    ReadLn(n);
    tmp := n * n * n;
  until (n >= -1000) and (n <= 1000);
  WriteLn('Number: ', tmp);
  c := 0;
  if tmp < 0 then
    tmp := abs(tmp);
  while tmp <> 0 do
  begin
    if tmp mod 10 = 3 then
      Inc(c);
    tmp := tmp div 10;
  end;
  WriteLn('Result: ', c);
  ReadLn;
end.

@SKeLeToN 3 / 3 / 4 Регистрация: 06.05.2010 Сообщений: 45
		1
	Найти сколько раз встречается цифра 3 в записи числа n^3 30.09.2010, 10:17. Показов 3878. Ответов 3 Метки нет (Все метки) Найти сколько раз встречается цифра 3 в записи числа N^3(-1000<=N<=1000). Строки не использовать. 0

@SKeLeToN 3 / 3 / 4 Регистрация: 06.05.2010 Сообщений: 45
	30.09.2010, 10:49 [ТС]	3
	мне надо для N в кубе Добавлено через 1 минуту Заранее спасибо 0

	30.09.2010, 11:11