Вывести все четырехзначные числа, произведение цифр которых - простое число?

Виолетта324 15 нояб. 2020 г., 18:51:41

Program long ;

uses Crt ;

const n = 5 ;

type Vec = array [1.

N] of integer ;

var A, B, C : Vec ; i, j, k, Col : integer ; Pro : longint ; a1, a2 : integer ;

begin

ClrScr ;

Randomize ;

Col : = 1 ; Pro : = 1 ;

WriteLn ('Massiv A : ') ;

for i : = 1 to n do begin A[i] : = 500 + random(2000) ; Write(A[i] : 6) ; if A[i] > ; 1000 then begin B[Col] : = A[i] ; Col : = Col + 1 ; end ; end ; WriteLn ;

Col : = Col - 1 ; WriteLn ;

WriteLn ('Massiv B : ') ;

for i : = 1 to Col do WriteLn(B[i]) ;

WriteLn ;

k : = 1 ;

for i : = 1 to n do begin a2 : = B[i] mod 10 ; a1 : = B[i] div 1000 ; if sqr(a1)< ; sqr(a2) then begin C[k] : = B[i] ; k : = k + 1 ; end ; end ;

for i : = 1 to k - 1 do Pro : = Pro * C[i] ; WriteLn ('Pro = ', Pro) ;

ReadLn ;

end.

Vikadais 12 июл. 2020 г., 18:30:09 | 10 - 11 классы

Составить алгоритм?

Составить алгоритм.

Дано целое четырехзначное число.

Используя оператор div и mod найти произведение его чисел.

Fhf756 8 окт. 2020 г., 15:03:53 | 10 - 11 классы

Сколько четырехзначных чисел, делящихся на 5, можно составить из цифр 0, 1, 3, 5, 7, если каждое число не должно содержать одинаковых цифр?

Сколько четырехзначных чисел, делящихся на 5, можно составить из цифр 0, 1, 3, 5, 7, если каждое число не должно содержать одинаковых цифр?

Lur 9 сент. 2020 г., 13:39:53 | 1 - 4 классы

На какое число надо умножить на 285714 чтобы получить шестизначное число записанное теми же цифрами 2 цифр этого числа равна 5?

На какое число надо умножить на 285714 чтобы получить шестизначное число записанное теми же цифрами 2 цифр этого числа равна 5.

Vikktorya 18 окт. 2020 г., 22:59:19 | 5 - 9 классы

Если между цифрами некоторого двузначного числа вписать цифру 0, то полученное трехзначное число будет в 9 раз больше первоначального?

Если между цифрами некоторого двузначного числа вписать цифру 0, то полученное трехзначное число будет в 9 раз больше первоначального.

Найдите это двузначное число.

NeeddHelp 25 февр. 2020 г., 16:47:20 | 5 - 9 классы

Напиши двузначное число, у которого произведение цифр равно наибольшему однозначному числу, и число десятков меньше числа едениц?

Напиши двузначное число, у которого произведение цифр равно наибольшему однозначному числу, и число десятков меньше числа едениц.

Помогите пожалуйста.

Oxidan 24 сент. 2020 г., 08:00:04 | 5 - 9 классы

Клиент банка забыл четырехзначный шифр своего сейфа и помнил лишь, что этот шифр - простое число, а произведение его цифр равно 243?

Клиент банка забыл четырехзначный шифр своего сейфа и помнил лишь, что этот шифр - простое число, а произведение его цифр равно 243.

За какое наименьшее.

Число попыток он наверняка сможет открыть свой сейф?

Sofi90 2 окт. 2020 г., 20:15:30 | 1 - 4 классы

Напиши двухзначное число у которого произведение цифр равно наибольшему однозначному числу и число десятков меньше числа единиц?

Напиши двухзначное число у которого произведение цифр равно наибольшему однозначному числу и число десятков меньше числа единиц.

128216 15 июн. 2020 г., 20:19:58 | 5 - 9 классы

К двузначному числу приписали цифру 5 с начала слева , а потом справа получили два трехзначных числа сумма которых равна 912 ?

К двузначному числу приписали цифру 5 с начала слева , а потом справа получили два трехзначных числа сумма которых равна 912 .

Найдите двузначное число.

Fatyanovayuliy 10 янв. 2020 г., 22:32:04 | 10 - 11 классы

Найдите все простые числа P для которых p + 10 и p + 14 также простые числа?

Найдите все простые числа P для которых p + 10 и p + 14 также простые числа.

Irina0418 22 дек. 2020 г., 10:48:14 | 5 - 9 классы

Дано пятизначное число, найти произведение первой, третьей и пятой цифры?

Дано пятизначное число, найти произведение первой, третьей и пятой цифры.

Это в Паскаль программу.