Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

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

Добавлено через 24 минуты
помогите плис
Лучшие ответы (1)
Старый 26.10.2009, 17:49   #2
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,080
Репутация: 40857 (29404)
Лучшие ответы: 1136
См. здесь.
Вложенные циклы
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
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
Новичок
 
Регистрация: 26.10.2009
Сообщений: 24
Репутация: 1 (1)
мне надо без масива
Старый 26.10.2009, 18:34   #4
odip
Форумчанин
Эксперт C++
 
Аватар для odip
 
Регистрация: 17.06.2009
Сообщений: 14,303
Репутация: 7195 (3263)
Лучшие ответы: 41
мне надо без масива
А где про это в условии написано ?
Старый 26.10.2009, 18:34
Google
Объявления
взаимно простые числа / Pascal (Паскаль)

Старый 26.10.2009, 18:40   #5
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,080
Репутация: 40857 (29404)
Лучшие ответы: 1136
мне надо без масива
Так тебя никто и не заставляет массив делать, тебя к алгоритму отправили, как найти взаимно простые числа. Спиши функцию определения НОД, потом вводишь 2 числа и пишешь
if func(a,b)=1 then взаимно простые
else нет
Старый 26.10.2009, 18:41  [ТС]   #6
mkil
Новичок
 
Регистрация: 26.10.2009
Сообщений: 24
Репутация: 1 (1)
просто ето тема до масимов и там просто надо вывести взаимопростое или нет
Старый 26.10.2009, 18:47   #7
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,080
Репутация: 40857 (29404)
Лучшие ответы: 1136
До чего все тупые и ленивые, по готовому написать не могут.
Код 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
Новичок
 
Регистрация: 26.10.2009
Сообщений: 24
Репутация: 1 (1)
Благадарю
Старый 26.10.2009, 18:58
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Turbo Pascal Взаимно простые числа
Дано натуральное число n. Получить все натуральные числа, меньшие n и взаимно простые с ним (два натуральных числа называются взаимно простыми, если их наибольший общий делитель равен 1).
Atex
Turbo Pascal Взаимно-простые числа
Составить программу, которая определяет, являются ли три введённые числа х, у, z взаимно-простыми. Взаимно-простыми называются числа, наибольший общий делитель которых равен 1. Использовать функцию вычисления наибольшего общего делителя этих чисел. Function NOD(a,b:integer):integer; Begin ...
cruzel
C# для начинающих Взаимно простые числа
Нужно составить программу, проверяющую, являются ли три числа взаимно простыми.
Donix
С++ для начинающих Взаимно простые числа
Задание таково:составить программу, отвечающую на вопрос, являются ли два произвольных натуральных числа взаимно простыми. З.Ы. Я что то пытался сделать,но просто операторов незнаю,составил только схематично.
Silas
Pascal (Паскаль) взаимно простые числа
числа, у которых НОД (наибольший общий делитель) равен 1, наз-ся взаимно-простыми. Найти все взаимно простые числа на отрезке . ммм, срочненька, завтра уже нужно, благодарю заранее :)
pockes
Опции темы

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

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