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

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

Добавлено через 24 минуты
помогите плис
Лучшие ответы (1)
26.10.2009, 17:43
AdAgent
Объявления
26.10.2009, 17:49   #2
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,993
Репутация: 42023 (30543)
Лучшие ответы: 1,725
См. здесь.
Вложенные циклы
Другие темы раздела
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++
Регистрация: 17.06.2009
Сообщений: 14,303
Репутация: 7202 (3270)
Лучшие ответы: 41
мне надо без масива
А где про это в условии написано ?
26.10.2009, 18:34
AdAgent
Объявления
26.10.2009, 18:40   #5
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,993
Репутация: 42023 (30543)
Лучшие ответы: 1,725
мне надо без масива
Так тебя никто и не заставляет массив делать, тебя к алгоритму отправили, как найти взаимно простые числа. Спиши функцию определения НОД, потом вводишь 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
Модератор
Регистрация: 18.05.2008
Сообщений: 64,993
Репутация: 42023 (30543)
Лучшие ответы: 1,725
До чего все тупые и ленивые, по готовому написать не могут.
Код 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C# Взаимно простые числа
Написать код который создаёт логический массив a размером NxN такой, что а = true, ecли i и j взаимно просты (не имеют общего делителя), и false в противном случае.Только пожалуйста без встроенных методов нахождения простых чисел:)
C# для начинающих trutoxa 09.09.2013 14:25
C++ взаимно простые числа
Для двух натуральных чисел P и Q, меньших 1000000, напишите программу, которая определяет, числа являются взаемнопростимы (не имеют общих делителей, кроме 1). Я пробую писать но не получается, кто-то подскажите, но оформить не с помощью функции а операторов цикла и условия!
С++ для начинающих vasapetrenko 28.09.2012 09:24
C# Взаимно простые числа
Нужно составить программу, проверяющую, являются ли три числа взаимно простыми.
C# для начинающих Donix 03.04.2011 19:52
Pascal взаимно простые числа
числа, у которых НОД (наибольший общий делитель) равен 1, наз-ся взаимно-простыми. Найти все взаимно простые числа на отрезке . ммм, срочненька, завтра уже нужно, благодарю заранее :)
Pascal (Паскаль) pockes 20.04.2010 08:58
Pascal взаимно простые числа
Проверить, являются ли данные три числа взаимно простыми. Добавлено через 2 минуты 27 секунд Проверить, являются ли данные три числа взаимно простыми.
Pascal (Паскаль) яяяя 28.05.2009 13:29
Опции темы

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

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