alexander997
1

Найти число поворотов шестеренок на один зубчик для их возврата в исходное состояние

31.10.2012, 14:23. Показов 2023. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны две сцепленные шестерёнки. У одной шестерёнки N зубовэж у другой - K.Требуетс найти какое минимальное число поворотов на один зубчик требуется сделать,чтобы шестеренки вернулись в исходное состояние.
Формат ввода
В единственной строке даны два натуральный числа N и K, каждое из которых не провосходящих 10 млн.

Формат вывода
Выведите искомое чилсо зубчиков.Гарантируется, что оно не больше миллиарда.
Пример ввода - 6 21
Пример вывода- 42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program gearwheel ;
var
N:integer;
K:integer;
z:real;
begin
 if N<10000000 then
 if K<10000000 then
 
 readln(N, K);
 
 z:=((N*K+K*N)/N);
 if z<100000000 then
 
 writeln(z);
end.
Оказалось,что в программе есть ошибка(хотя всё считает правильно). Подскажите пожалуйста, в чём здесь ошибка
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2012, 14:23
Ответы с готовыми решениями:

Найти, какое минимальное число поворотов на один зубчик требуется сделать, чтобы шестеренки вернулись в исходное состояние
Даны две сцепленные шестеренки. У одной шестеренки N зубцов, у другой – K. Требуется найти, какое...

Какое минимальное число поворотов сделать, чтобы шестеренки вернулись на исходное состояние
две сцепленные шестеренки. У одной n зубцов , у другой к.ТРебуеться найти какое минимальное число...

Эквивалентен ли встроенный функционал возврата в исходное состояние чистой установке?
Приветствую всех! В Windows 10 есть такая функция, когда можно вернуть компьютер в исходное...

Решили привести компьютер в исходное состояние но не удалось найти среду восстановления
olen6, Здравствуйте, подскажите пожалуйста, решили привести компьютер в исходное состояние но не...

2
Ww
2 / 2 / 3
Регистрация: 31.10.2012
Сообщений: 20
31.10.2012, 19:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var count,i,a,b,n,k : integer;
begin
write('enter nr. n : ');
readln(n);
 
write('enter nr. k : ');
readln(k);
 
a:=n;
b:=k;
i:=0;
count:=0;
while (i<1) do begin
inc(a); inc(count);
inc(b);
if (a mod n =0) and (b mod k=0) then inc(i);
end;
writeln('count=',count);
 
end.
0
1 / 1 / 1
Регистрация: 25.10.2011
Сообщений: 14
31.10.2012, 22:11 3
Pascal
1
2
3
4
5
6
7
8
9
10
var a,b,n,k: LongInt;
 
begin
  ReadLn(n,k);
  a:=n;
  b:=k;
  while n<>k do 
    if n>k then n:=n-k else k:=k-n;
 WriteLn((a*b) div n);
end.
0
31.10.2012, 22:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2012, 22:11
Помогаю со студенческими работами здесь

Дано трехзначное число. Найти все трехзначные числа, состоящих из тех же цифр, что и исходное число
Помогите решить Дано трехзначное число. Найти все трехзначные числа, состоящих из тех же цифр,...

Дано трехзначное число. Найти все трехзначные числа состоящие из тех же цифр, что и исходное число
Дано трехзначное число. Найти все трехзначные числа состоящие из тех же цифр, что и исходное число.

Исходное состояние dbgrid
В общем у меня в бд есть поиск сделанный с помощью sql. Так вот, ввожу я в edit данные, нажимаю на...

Исходное состояние Desktop-a
Народ, прошу помощи. В линуксе я несколько месяцев, и встал такой вопрос: В медиатеке пользователь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru