Пользователь вводит с клавиатуры n - чисел определить : Сколько среди них простых чисел?

Рустам77765454544 13 мар. 2020 г., 23:39:30

Program Project1 ;

var m : array of integer ; n, i, old, Simple : integer ;

function nod (var a, b : integer) : integer ;

var c : integer ;

begin repeat if a > ; b then a : = a mod b else b : = b mod a ; until (a = 0) or (b = 0) ; nod : = a + b ;

end ;

function IsSimple(const n : Integer) : Boolean ;

var i : Integer ;

begin IsSimple : = True ; for i : = 0 to Length(m) - 1 do begin if (n mod m[i]) = 0 then begin IsSimple : = False ; Break ; end ; end ;

end ;

begin repeat write('n : ') ; readln(n) ; SetLength(m, Length(m) + 1) ; m[Length(m) - 1] : = n ; until n< ; = 0 ; SetLength(m, Length(m) - 1) ; old : = nod(m[0], m[1]) ; for i : = 2 to Length(m) - 1 do old : = nod(old, m[i]) ; Writeln('Nod : ', old) ; simple : = 0 ; for i : = 0 to Length(m) - 1 do if IsSimple(m[i]) then inc(simple) ; Writeln('Simple : ', simple) ; readln ;

end.

Нахождение НОД всех чисел это нод(нод(А, Б), В) и т.

Д. Остальное думаю понятно.

13anna05 21 окт. 2020 г., 00:43:19 | 5 - 9 классы

Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму?

Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.

Число N вводится с клавиатуры.

Asia271 12 мая 2020 г., 22:59:44 | 5 - 9 классы

С клавиатуры вводится натуральное число?

С клавиатуры вводится натуральное число.

Определите сколько в его записи нечетных чисел.

SuSanNa268 22 дек. 2020 г., 18:10:12 | 5 - 9 классы

Помогите с паскалем?

Помогите с паскалем.

С клавиатуры вводятся 5 натуральных чисел.

Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).

Ekaterinakobel 18 апр. 2020 г., 10:30:15 | 10 - 11 классы

С клавиатуры вводится 10 чисел, определить кол - во чисел попадающих в интервал от - 15 до 30?

С клавиатуры вводится 10 чисел, определить кол - во чисел попадающих в интервал от - 15 до 30.

В турбо паскале.

Ann2408 25 июл. 2020 г., 01:25:15 | 5 - 9 классы

СРОЧНО?

СРОЧНО!

Напишите функцию, (через процедуру ) которая находит наибольший общий делитель двух натуральных чисел.

Пример : Введите два натуральных числа : 7006652 112307574 НОД(7006652, 112307574) = 1234.

Popowaani 16 нояб. 2020 г., 21:29:29 | 5 - 9 классы

Найти наибольший общий делитель чисел A, B, C, создав функцию для нахождения НОД двух натуральных чисел?

Найти наибольший общий делитель чисел A, B, C, создав функцию для нахождения НОД двух натуральных чисел.

Kir71 3 окт. 2020 г., 07:05:30 | 5 - 9 классы

С клавиатуры вводится натуральное число k, затем последовательно вводится k чисел с плавающей точкой?

С клавиатуры вводится натуральное число k, затем последовательно вводится k чисел с плавающей точкой.

Найти сумму этих чисел и наименьшее них.

Паскаль.

Pushok112 7 апр. 2020 г., 05:52:53 | 10 - 11 классы

Найти наибольший общий делитель следующих чисел(16 32 40 64 80 128)?

Найти наибольший общий делитель следующих чисел(16 32 40 64 80 128).

Использовать процедуру для нахождения общего делителя.

ПАСКАЛЬ!

Полина123111 19 янв. 2020 г., 19:23:59 | 5 - 9 классы

Сколько среди чисел от 132 до 188 (включительно) таких, что их простыми делителями являются только числа 2 и / или 3?

Сколько среди чисел от 132 до 188 (включительно) таких, что их простыми делителями являются только числа 2 и / или 3?

Валери2002 2 февр. 2020 г., 11:54:09 | 5 - 9 классы

С клавиатуры вводятся натуральные числа?

С клавиатуры вводятся натуральные числа.

Определить кол - во чисел, которые делятся на 5, наибольшее из них.