Не могу выполнить!

@Br3dm4n · Регистрация: 07.10.2013

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

Найти количество чисел из диапазона от 100000 до 999999, у которых произведение первых 3 разрядов равно произведению 3 последних. Сколько среди них простых чисел?
программа должна быть в консоли, поогите плз

@enk · 08.10.2013, 13:38

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
var
  num: integer;
  count: integer;
 
begin
  count := 0;
  for num := 100000 to 999999 do
    if ((num div 100000) * (num div 10000 mod 10) * (num div 1000 mod 10)) = ((num mod 10) * (num div 100 mod 10) * (num div 10 mod 10)) then
      inc(count);
  writeLn(count);
  readln;
end.

@Br3dm4n 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 5
		1
	Не могу выполнить! 07.10.2013, 08:33. Показов 991. Ответов 1 Метки нет (Все метки) Найти количество чисел из диапазона от 100000 до 999999, у которых произведение первых 3 разрядов равно произведению 3 последних. Сколько среди них простых чисел? программа должна быть в консоли, поогите плз 0

	08.10.2013, 13:38

Не могу выполнить!

Решение