Дано натуральное число. Определить количество простых цифр в нем

@Тимурко · Регистрация: 20.10.2012

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

Помогите пжл.
дано натуральное число. определить количество простых цифр в нем

@MatMaster · 19.03.2014, 16:19

Pascal

var n:longint; i:0..9;   
begin
write('N = ');
readln(n);
i:=0;
repeat
if n mod 10 in [2,3,5,7] then inc(i);
n:=n div 10;
until n=0;
write('Kolichestvo prostyh cifr = ',i);
readln;
end.

@Cyborg Drone · 19.03.2014, 21:46

Pascal

var n, k: integer;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  k := 0;
  while n > 0 do
    begin
      if n mod 10 in [2, 3, 5, 7] then inc(k);
      n := n div 10
    end;
  write('Prime digits: ', k);
  readln
end.

@APALoff · 20.03.2014, 11:04

MatMaster, единица тоже простое число!

Новичок · 20.03.2014, 21:33

APALoff, как раз таки 1 - не простое число(это действительно так:простым считают число у которого 2 делителя,т.е 1 и само число,а у 1 - 1 делитель,вот такой прикол)!

@APALoff · 20.03.2014, 21:40

Мда, действительно, в определении так и сказано... век живи - век учись )

@Тимурко 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 6
		1
	Дано натуральное число. Определить количество простых цифр в нем 19.03.2014, 15:14. Показов 1188. Ответов 5 Метки нет (Все метки) Помогите пжл. дано натуральное число. определить количество простых цифр в нем 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	20.03.2014, 11:04	4
	MatMaster, единица тоже простое число! 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	20.03.2014, 21:33	5
	APALoff, как раз таки 1 - не простое число(это действительно так:простым считают число у которого 2 делителя,т.е 1 и само число,а у 1 - 1 делитель,вот такой прикол)! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	20.03.2014, 21:40	6
	Мда, действительно, в определении так и сказано... век живи - век учись ) 0