Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Ольга Юрьевна
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 8
#1

Вложенный цикл. Найти трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3 - Pascal ABC

07.04.2011, 08:13. Просмотров 863. Ответов 7
Метки нет (Все метки)

НАЙТИ С ПОМОЩЬЮ ВЛОЖЕННОГО ЦИКЛА)))
найти асе трехзначные числа, которые при делении на 2 дают остаток 1,при делении на 3 остаток 2, при делении на 4 остаток 3,а само число делится на 5
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 08:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вложенный цикл. Найти трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3 (Pascal ABC):

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3
Ввести двумерный массив А3×4 . Определить произведение элемен-тов, которые при...

Найти все четырехзначные числа, которые при делении на 3 дают остаток 1
В общем у меня тут оказия произошла: попросили помочь с задачами по...

Найти те члены последовательности, которые при делении на 7 дают остаток 1, 2, 5
Даны натуральные числа n, q1, q2, q3,...qn. Найти те члены q последовательности...

Определить количество элементов, которые при делении на 7 дают остаток 2 или 5
Задан массив Y(4,7). a. определить количество элементов, которые при делении...

Определить среднее арифметическое тех элементов массива, которые при делении на 4 дают остаток 1 или 3
Ввести двумерный массив A4*3 Определить в нём среднее арифметическое тех...

Определить в файле среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3
Ввести файл F из 13 элементов. Определить в нём среднее арифметическое тех...

7
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
07.04.2011, 08:35 #2
А здесь точно вложенные циклы нужны?
0
Ольга Юрьевна
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 8
07.04.2011, 08:43  [ТС] #3
ДА ТОЧНО!Я РЕШИЛА БЕЗ ВЛОЖЕННОГО ЦИКЛА,У МЕНЯ НЕ ПРИНЯЛИ ЕЕ(((((
0
Holy_Metal
71 / 71 / 60
Регистрация: 14.12.2010
Сообщений: 201
07.04.2011, 09:34 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
   i,j,otv:integer;
begin
for i:=100 to 999 do
 otv:=0;
    begin
         for j:=2 to 4 do
             if (i mod j=j-1) and (i mod 5=0) then inc(otv);
         if otv=3 then writeln(i);
    end;
end.
Может как-то так, только программа не находит таких чисел
1
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
07.04.2011, 09:49 #5
Внимательнее нужно писать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
   i,j,otv:integer;
begin
for i:=105 to 995 do
 begin
   otv:=0;
   for j:=2 to 4 do
   if (i mod j=j-1) and (i mod 5=0) then inc(otv);
   if otv=3 then writeln(i);
 end;
end.
1
Ольга Юрьевна
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 8
07.04.2011, 10:16  [ТС] #6
спасибо огромное!!!!!!!!
0
Puporev
07.04.2011, 10:17
  #7

Не по теме:

Ольга Юрьевна, Это нужно Holy_Metal, спасибо, он алгоритм придумал....

0
Ольга Юрьевна
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 8
07.04.2011, 10:21  [ТС] #8
ему тоже огромное спасибо)))
0
07.04.2011, 10:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2011, 10:21
Привет! Вот еще темы с решениями:

Напечатать все целые числа, из интервала [35, 60] что при делении на 7 дают остаток 1, 2 или 5.
Напечатайте все целые числа, из интервала что при делении на 7 дают остаток 1,...

Найти количество нечетных элементов массива и элементов, которые при делении на 7 дают остаток 1, 2 или 5
Дано линейную таблицу, которая содержит N целых положительных чисел. Найти...

Вывести только те числа, которые при делении на 5 получат остаток 2
задача: вводится массив из 20 чисел а выводятся только те которые при делении...

Найти наименьшее N>1990, которое при делении на 17 даст остаток 13
найти наименьшее N>1990,которое при делении на 17 даст остаток 13


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

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

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