4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
1

Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка

11.10.2008, 21:26. Показов 5728. Ответов 24
Метки нет (Все метки)

Привет, сново я =)

Задали вторую задачку, скозали лёгкая, только вот не могу справиться с ней.

"ВВедите Число N. Определить для этого числа ближайшее ( с верху), которое делится на 5 и 7 без остатка"

Помогите разобраться пожалуйста !
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2008, 21:26
Ответы с готовыми решениями:

Определить ближайшее нечетное число меньше заданного числа N, которое делится на 13 без остатка
Определить ближайшее нечетное число меньше заданного числа N, которое делится на 13 без остатка.

Определить ближайшее четное число меньше заданного числа N, которое делится на 7 без остатка
помогите плез

Найти ближайшее целое к первому числу, которое делится на второе число без остатка
Пользователь вводит два числа. Определить, делится одно число на второе без остатка. Если нет,...

Пользователь вводит два числа. Определить, делится одно число на другое без остатка. Если нет, предложить ближайшее
Пользователь вводит два числа. Определить, делится одно число на другое без остатка. Если нет,...

24
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
11.10.2008, 22:02 2
Действительно ведь легкая. Вводишь любое целое число, хоть положительно, хоть отрицательное. В цикле repeat ..until или while .. do увеличиваешь это число на единицу пока не получится число, кратное 35 (7*5=35).
Вот вариант кода.
Код
uses crt;
var N:integer;
begin
clrscr;
Write('Введите целое число N=');
readln(n);
repeat
inc(N);
until (N mod 35=0)and(N<>0);{второе условие для отрицательных чисел, чтобы не выходил ноль, он у нас на все делится}
writeln('Это число=',N);
readln
end.
0
4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
11.10.2008, 23:49  [ТС] 3
Спасибо, попробую довести до дела )

Добавлено через 2 минуты 13 секунд
Цитата Сообщение от Puporev Посмотреть сообщение
Действительно ведь легкая. Вводишь любое целое число, хоть положительно, хоть отрицательное. В цикле repeat ..until или while .. do увеличиваешь это число на единицу пока не получится число, кратное 35 (7*5=35).
Вот вариант кода.
Код
uses crt;
var N:integer;
begin
clrscr;
Write('Введите целое число N=');
readln(n);
repeat
inc(N);
until (N mod 35=0)and(N<>0);{второе условие для отрицательных чисел, чтобы не выходил ноль, он у нас на все делится}
writeln('Это число=',N);
readln
end.

Просто нас не учат в Универе ничему, а просто дают Лабораторку, чтобы сами делали )
Ну вот я как не знаю Паскаль - поэтому доя меня сложно =(
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
12.10.2008, 00:02 4
Спасибо, попробую довести до дела )
Не понял, а что нужно доводить, вроде все работает.
0
4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
12.10.2008, 00:53  [ТС] 5
Я пишу любое число то 4 то 7 то 5 и мне всегда ответ даёт "Это число 35" Так должно быть ?
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
12.10.2008, 09:43 6
Ну а какое самое близкое к числам от 1 до 34 число, кратное 35?
Набери 36, или 71, что тебя зациклило на числах меньше 35. Считаешь только до 10?
1
4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
12.10.2008, 12:53  [ТС] 7
Спасибо, теперь понял
0
Гость23
12.10.2008, 20:21 8
что это за язык программирования
Real Z(102,5),ANT(4,5)...
C Ввод кол-ва тарелок...
ACCEPT* ,N
FORMAT(T5,N=


єтот язык я нашёл в старой книге 1991 года
Гость23
12.10.2008, 20:26 9
С Вычисление матричных коэффициентов
DO 4 J=1,K
DO 5 I=1,N2
SUM=0
DO 6 Z=1,K
CALL EQUI...
4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
24.10.2008, 15:01  [ТС] 10
гость, что ты делаешь в моём топике ??

З.ы. Топик АП ! нужкн HELP, учила скозала, чтобы ввёл -2 число, я ввёл и мне покозало ответ 35, она скозала, что должно было быть 0 !! Как можно исправить это ?
0
12 / 12 / 0
Регистрация: 23.10.2008
Сообщений: 281
24.10.2008, 15:52 11
создай условие, что если деление=0, то это чилсло тоже проходит
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
24.10.2008, 16:00 12
ближайшее ( с верху), которое делится на 5 и 7 без остатка
Вы даете, ноль ведь снизу.
Если надо снизу, то inc(i) замени на dec(i) это то же что i:=i-1;
Если надо ближайшее к данному числу, то это посложнее. Можно по разному, первое что пришло в голову:
Код
[SIZE=2]
uses crt;
var N,i:integer;
begin
clrscr;
Write('N=');
readln(n);
i:=1;
repeat
inc(N,i); [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]увеличиваем число на 1[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if N mod 35=0 then [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]    begin
      writeln('Это число ',N);
      readln;
      exit;[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]    end
else
inc(i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если нет, увеличиваем счетчик[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]dec(N,i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]уменьшаем число на 2[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if N mod 35=0 then
    begin
      writeln('Это число ',N);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]      readln;
      exit;[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]    end
else inc(i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если нет, опять увеличиваем счетчик, и все повторяем +3, -4, +5, -6[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]until (N mod 35=0); [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем прграмму когда делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]readln
end.
[/SIZE]
0
12 / 12 / 0
Регистрация: 23.10.2008
Сообщений: 281
24.10.2008, 16:06 13
[QUOTE=Puporev;64487]Вы даете, ноль ведь снизу.
да, внизу... я думал, что надо найти число, которое будет больше введенного... а 0 больше -2 и -1000))))
0
1 / 1 / 1
Регистрация: 03.10.2008
Сообщений: 35
24.10.2008, 17:54 14
Капец...

Код
uses crt;
var N:integer;
begin
clrscr;
Write('Введите целое число N=');
readln(n);
if n<0 then writeln('0')
else
begin
 repeat
 inc(N);
 until (N mod 35=0)and(N<>0);{второе условие для отрицательных чисел, чтобы не выходил ноль, он у нас на все делится}
 writeln('Это число=',N);
end;
 readln
end.
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
24.10.2008, 18:20 15
if n<0 then writeln('0')
При n=-34 ответ будет -35. У отрицательных чисел тоже есть кратность.
Например цитата из Википедии
Чётное числоцелое число, которое делится на 2 без остатка: …−4,-2,0,2,4,6,8…
0
12 / 12 / 0
Регистрация: 23.10.2008
Сообщений: 281
24.10.2008, 18:32 16
зачем if N<0???????????????????? if (N/7) and (N/5) = 0 then число N подходит
0
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
26.10.2008, 09:25 17
а...

Добавлено через 23 минуты 13 секунд
Это в делфи, но там просто верхнюю часть кода замени на crt вроде, и добавь если надо clrscr;
while 1=1 вызывает прогу скока угодно раз, то есть бесконечно циферки можно вводить.
Вот если че не понятно, пиши
А, и вот еще, тут она ищет ближайшее сверху на числовой оси, то есть, если ввел -9 он напишет 0, если -35, тоже 0, если -36, то ответ -35, и если -71 то ответ -70, и так далее.(у интеджера большой придел)))

Код
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var N:integer;

begin
while 1=1 do begin
Write('Enter Z=');
readln(n);
  repeat
    inc(N);
      until (N mod -35=0) or(N=0) or (n mod 35=0);
    writeln('This Number=',N);
 writeln;

end;
end.
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
26.10.2008, 09:34 18
Слушай Igok, что-то я тебя сразу не понял. В первой программе из строки
until (N mod 35=0)and(N<>0); убери and(N<>0);
0
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
26.10.2008, 09:46 19
да вот, у меня правильно
0
4 / 3 / 0
Регистрация: 29.09.2008
Сообщений: 40
30.10.2008, 01:17  [ТС] 20
Большое спасибо, понесу завтра Пупорева код на лабараторку )
Осталось только Блок схему нарисовать !
Кстате может знаете литературу по нарисованию блок схем ?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2008, 01:17

Даны три разных натуральных числа A, B, C. Определить наименьшее число, которое делится без остатка на эти 3 числа
Даны три разных натуральных числа A, B, C. Определить наименьшее число, которое делится без остатка...

Найти все целые числа b, для которых а делится без остатка на b^2 и не делится без остатка на b^3
Пользователь вводит любое целое число а. Необходимо вывести все целые числа b , для которых а...

Вывести все целые числа В, для которых А делится без остатка на В*В и не делится без остатка на В*В*В
Кто может решите пожалуйста задачу с помощью циклов. Задание 4: Пользователь вводит любое целое...

Найти ближайшее целое число к данному числу, которое делится на второе число без остатка
Пример 1. Есть числа 35 и 14. 35 не делится на 14 без остатка, поэтому ищем ближайшее целое число...

Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6
задание такое: Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15...

Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6
Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6


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

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

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