Особые простые числа

@mudmen · Регистрация: 29.09.2009

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

Используя процедуру (функцию), которая определяет, является ли число n простим, определите и выведите на экран все простые числа в промежутке от 1000 до 9999, у которых сумма первой и второй цифры равна сумме третей и четвертой.

@Puporev · 12.10.2009, 21:03

mudmen, Попробуйте сами написать. Функцию определения простого числа я за последний час 2 раза выкладывал. А сумму цифр по условию можно найти так

Pascal

1
2
3

for i:=1000 do 9999 do
if (i div 1000+(i mod 1000 div 100)=(i mod 100 div 10 + i mod 10) and(Prost(i))
then writeln(i);

@mudmen 0 / 0 / 0 Регистрация: 29.09.2009 Сообщений: 20
		1
	Особые простые числа 12.10.2009, 20:50. Показов 901. Ответов 1 Метки нет (Все метки) Используя процедуру (функцию), которая определяет, является ли число n простим, определите и выведите на экран все простые числа в промежутке от 1000 до 9999, у которых сумма первой и второй цифры равна сумме третей и четвертой. 0

	12.10.2009, 21:03

Особые простые числа

Решение