Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
26.10.2009, 17:43   #1
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
взаимно простые числа / Pascal (Паскаль)

Определить, являються ли два заданых числа взаимо простыми(взаимо простые числа не имеют обших делителей,кроми единицы)

Добавлено через 24 минуты
помогите плис
Лучшие ответы (1)
26.10.2009, 17:43
AdAgent
Объявления
26.10.2009, 17:49   #2
Puporev
Модератор
42120 / 30639 / 1759
Регистрация: 18.05.2008
Сообщений: 65,190
взаимно простые числа

См. здесь.
Вложенные циклы
Другие темы раздела
Pascal определить, сколько его элементов имеют значение меньше чем 0,25
Дан массив А (5;4) определить, сколько его элементов имеют значение меньше чем 0,25 uses crt; var A: array of integer; i,s,j,p,z,k,l:integer; x:real; begin clrscr; randomize; writeln('Matrica:');
Ошибка при компиляции Pascal
Надо что б считало етот пример,вот что у меня получилось,но выдает ошибку,перед етим выхзодила компиляция но при вводе чисел заместь ответа высвкакивала ошибка 207 program LABA_5_1; uses crt; const t=1e-9; var xn,xk,h,x,ch,zn,y:real; begin clrscr; write('xn,xk,h='); readln(xn,xk,h); ...
26.10.2009, 17:56  [ТС]   #3
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
взаимно простые числа

мне надо без масива
26.10.2009, 18:34   #4
odip
Форумчанин
Эксперт C++
7202 / 3270 / 41
Регистрация: 17.06.2009
Сообщений: 14,303
взаимно простые числа

мне надо без масива
А где про это в условии написано ?
26.10.2009, 18:34
AdAgent
Объявления
26.10.2009, 18:40   #5
Puporev
Модератор
42120 / 30639 / 1759
Регистрация: 18.05.2008
Сообщений: 65,190
взаимно простые числа

мне надо без масива
Так тебя никто и не заставляет массив делать, тебя к алгоритму отправили, как найти взаимно простые числа. Спиши функцию определения НОД, потом вводишь 2 числа и пишешь
if func(a,b)=1 then взаимно простые
else нет
26.10.2009, 18:41  [ТС]   #6
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
взаимно простые числа

просто ето тема до масимов и там просто надо вывести взаимопростое или нет
26.10.2009, 18:47   #7
Puporev
Модератор
42120 / 30639 / 1759
Регистрация: 18.05.2008
Сообщений: 65,190
взаимно простые числа

До чего все тупые и ленивые, по готовому написать не могут.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
writeln;
if NOD(a,b)=1 then write('Эти числа взаимно простые!')
else write('Эти числа не являются взаимно простыми!');
readln
end.
26.10.2009, 18:58  [ТС]   #8
mkil
Новичок
1 / 1 / 0
Регистрация: 26.10.2009
Сообщений: 24
взаимно простые числа / Pascal (Паскаль)

Благадарю
26.10.2009, 18:58
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Взаимно простые числа
Здравстуйте! У меня есть задание. Написать программу проверки введенные два числа взаимно простыми. Запретите программно вводить числа меньше 10 Program Vzaim_prost; var a,b : integer; begin read(a); read(b); while a<>b do if a > b then a := a - b
Turbo Pascal uVazikPazik 31.03.2014 09:53
C++ взаимно простые числа
Для двух натуральных чисел P и Q, меньших 1000000, напишите программу, которая определяет, числа являются взаемнопростимы (не имеют общих делителей, кроме 1). Я пробую писать но не получается, кто-то подскажите, но оформить не с помощью функции а операторов цикла и условия!
С++ для начинающих vasapetrenko 28.09.2012 09:24
Turbo Pascal Взаимно простые числа
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1).
Turbo Pascal Atex 16.05.2012 19:49
Pascal взаимно простые числа
числа, у которых НОД (наибольший общий делитель) равен 1, наз-ся взаимно-простыми. Найти все взаимно простые числа на отрезке . ммм, срочненька, завтра уже нужно, благодарю заранее :)
Pascal (Паскаль) pockes 20.04.2010 08:58
C++ Взаимно простые числа
Ребят, помогите пожалуйста задачу решить на Си... Даны 2 числа, выяснить являются ли они взаимно простыми( не имеют общих делителей кроме 1) Добавлено через 23 минуты все, спс сделал сам
С++ для начинающих Planet 22.12.2009 20:41
Опции темы

Текущее время: 08:50. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.