Вопрос по информатике:
Пользователь вводит с клавиатуры n- чисел определить: Сколько среди них простых чисел. Наибольший общий делитель всех этих чисел. Число у которого делителей боль, чем у всех остальных. ПАСКАЛЬ ПРОЦЕДУРЫ И ФУНКЦИИ!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.07.2017 18:10
- Информатика
- remove_red_eye 823
- thumb_up 30
Ответы и объяснения 1
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.
Нахождение НОД всех чисел это нод(нод(А, Б), В) и т.д. Остальное думаю понятно.
- 01.01.1970 00:00
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.