Составьте программу определения наибольшего общего делителя двух натуральных чисел

@Serjant0007 · Регистрация: 21.06.2010

Студворк — интернет-сервис помощи студентам

1. Составьте программу получения в порядке убывания всех делителей данного числа.
for i:=n downto 1 do
if (n mod i) = 0 then writeln(i); Остальную часть задачи не знаю как.
2. Составьте программу определения наибольшего общего делителя двух натуральных чисел. (Реализовать в виде программы следующий вариант алгоритма Эвклида нахождения наибольшего общего делителя двух натуральных чисел: пока числа не станут равными, большее заменяется на разность большего и меньшего чисел. Когда числа станут равными одному и тому же числу d, то вычисления прекращаются: d равно наибольшему общему делителю исходных чисел). В голову ничего не идет если бы не то что в скобках то легко было бы а так не знаю.
3. Составьте программу суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение. (Не знаю вообще как и что).
4. Дан целочисленный массив A[1..4, 1..5]. Требуется преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней.

Pascal
1
2
3
4
5
6
7
8
9
10
Program Zadacha;
Var a:array [1..4,1..5] of byte;
i,j:byte;
Begin
For i:=1 to 4 do
For j:=1 to 5 do
A[i,j]:=random (100)-50;
For i:=1 to 4 do
For j:=1 to 5 do
If i <> 4 then A[i,j]:=A[i,j]-A[4,j];

ПОМОГИТЕ дальше

@programmer777 · 25.06.2010, 19:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program matrix;
uses crt;
const n=4; m=5;
var a:array [1..n,1..m] of real;
    raz:array [1..m] of real;
    i,j:integer;
begin
writeln('Исходная матрица:');
randomize;
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(20)+1;
  write(a[i,j],' ');
  end;
  writeln;
 end;
writeln('Полученная матрица:');
for i:=1 to n-1 do
for j:=1 to m do
a[i,j]:=a[i,j]-a[n,j];
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  write(a[i,j],' ');
  end;
  writeln;
 end;
end.

@Serjant0007 · 25.06.2010, 19:24 **[ТС]**

2 и 3 вообще ужасная)))

@Су Ён · 06.03.2012, 20:59

Помогите пожалуйста в делфи решить

@СветланаЛьвовна · 08.03.2012, 00:12

Не пойму, в чем трудность второй задачи??? Алгоритм Эвклида расписан и всем известен. Вычитаете каждый раз из большего числа меньшее - да и ВСЕ!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Example_11;
Var x, y: Integer;
Begin
Writeln('vvedite 2 chisla');
Readln(x,y);
repeat
If x>y Then x:=x-y
Else y:=y-x;
until (x=0) Or (y=0);
Writeln('NOD= ', x+y);
Readln;
End.

Добавлено через 54 минуты
1. задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
program b4;
uses crt;
var i,x:integer;
begin
clrscr;
writeln('vvedite chislo');
readln(x);
For i:=x downto 1 do
If (x mod i)=0 Then Writeln(x div i);
readkey;
end.

Я уже заметила, что вопрос был два года назад, но все же, может кому еще надо будет...
Да и себе полезно вспомнить

@Су Ён · 08.03.2012, 08:20

эту же задачу в делфи нужно решить.Помогите пожалуйста...

Добавлено через 4 минуты
Составьте программу получения в порядке убывания всех делителей данного числа.

@Eлена · 20.11.2013, 20:34

Здравствуйте.Помогите пожалуйста нарисовать блок-схему к программе №2

Kodzaev · 20.11.2013, 20:44

Eлена, вот блок-схема

@ciocca125 · 29.07.2022, 01:54

Добрый день! Здесь три программы для нахождения НОД.

@JuriiMW · 29.07.2022, 05:27

ciocca125, а вот ЗДЕСЬ правила, с которыми вы согласились, когда регистрировались!

Новые блоги и статьи Все статьи Все блоги /
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .

@Serjant0007 2 / 2 / 1 Регистрация: 21.06.2010 Сообщений: 247
	25.06.2010, 19:24 [ТС]
	2 и 3 вообще ужасная))) 0

@Су Ён 0 / 0 / 0 Регистрация: 06.03.2012 Сообщений: 11
	06.03.2012, 20:59
	Помогите пожалуйста в делфи решить 0

@Су Ён 0 / 0 / 0 Регистрация: 06.03.2012 Сообщений: 11
	08.03.2012, 08:20
	эту же задачу в делфи нужно решить.Помогите пожалуйста... Добавлено через 4 минуты Составьте программу получения в порядке убывания всех делителей данного числа. 0

@Eлена 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 16
	20.11.2013, 20:34
	Здравствуйте.Помогите пожалуйста нарисовать блок-схему к программе №2 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	20.11.2013, 20:44
	Eлена, вот блок-схема Миниатюры 1

@ciocca125 3 / 2 / 1 Регистрация: 09.10.2018 Сообщений: 15
	29.07.2022, 01:54
	Добрый день! Здесь три программы для нахождения НОД. 0

@JuriiMW 5093 / 2660 / 2354 Регистрация: 10.12.2014 Сообщений: 10,055
	29.07.2022, 05:27
	ciocca125, а вот ЗДЕСЬ правила, с которыми вы согласились, когда регистрировались! 0

Опции темы