Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.06.2011, 13:00   #11
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

Цитата:
Код:
b1[i]dev7
Правильно функция называется div, а тебе вообще нужна mod, как правильно заметил Jaguar83.

Ведь главное что? -- Быстро написать, много восклицательных знаков... А проверять -- зачем? -)

ЗЫ И всякая жаба мнит себя подводной лодкой (с)
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума Ответить с цитированием
Старый 28.06.2011, 13:07   #12
Rustafa13
Пользователь
 
Регистрация: 10.05.2011
Сообщений: 50
По умолчанию

тупанул, нужно было mod ставить. спешил.
Код:
program abc;
var a:array [1..5] of integer;
var b:array [1..5] of integer;
var c:array [1..5] of integer;
I:integer;
begin
for I:=1 to 5 do read(a[i]);
for I:=1 to 5 do read(b[i]);
for I:=1 to 54 do read(b[i]);

if (a[i] mod (7)=1) or (a[i] mod (7)= 1.5) or (a[i] mod (7)=5) then
for I:=1 to 100 do write(a[i])
else writeln('нет таких чисел');
if (b[i] mod (7)=1) or (b[i] mod (7)= 1.5) or (b[i] mod (7)=5) then
for I:=1 to 100 do write(b[i])
else writeln('нет таких чисел'); 
if (c[i] mod (7)=1) or (c[i] mod (7)= 1.5) or (c[i] mod (7)=5) then
for I:=1 to 100 do write(c[i])
else writeln('нет таких чисел');
end.


___________
ВНИМАНИЕ!!
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 28.06.2011 в 17:19.
Rustafa13 вне форума Ответить с цитированием
Старый 28.06.2011, 13:21   #13
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

Цитата:
Сообщение от Rustafa13 Посмотреть сообщение
тупанул, нужно было mod ставить. спешил.
program abc;
var a:array [1..5] of integer;
var b:array [1..5] of integer;
var c:array [1..5] of integer;
I:integer;
begin
for I:=1 to 5 do read(a[i]);
for I:=1 to 5 do read(b[i]);
for I:=1 to 54 do read(b[i]);

if (a[i] mod (7)=1) or (a[i] mod (7)= 1.5) or (a[i] mod (7)=5) then
for I:=1 to 100 do write(a[i])
else writeln('нет таких чисел');
if (b[i] mod (7)=1) or (b[i] mod (7)= 1.5) or (b[i] mod (7)=5) then
for I:=1 to 100 do write(b[i])
else writeln('нет таких чисел');
if (c[i] mod (7)=1) or (c[i] mod (7)= 1.5) or (c[i] mod (7)=5) then
for I:=1 to 100 do write(c[i])
else writeln('нет таких чисел');
end.
Честное слово, иногда лучше жевать, чем говорить (с)...
Массивы размерностью 5, циклы проверки до 100. Причем их 3. Зачем? Да и проверка (c[i] mod (7)= 1.5) -- это что?
Массив b заполняется дважды, при этом второй раз до 54. Я-то понимаю, что это опечатки, но ТС этого может и не понять...
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума Ответить с цитированием
Старый 28.06.2011, 13:25   #14
Sword991
Новичок
Джуниор
 
Регистрация: 28.06.2011
Сообщений: 8
По умолчанию

Jaguar83 Спасибо огромное за решение первой задачи!
ЗЫ ТС - тупой студент?
Sword991 вне форума Ответить с цитированием
Старый 28.06.2011, 13:43   #15
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

Цитата:
ТС - тупой студент?
о_О
спасибо, улыбнуло -)
ТС -- Топик-Стартер. Человек, открывший топик.
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума Ответить с цитированием
Старый 28.06.2011, 13:49   #16
Sword991
Новичок
Джуниор
 
Регистрация: 28.06.2011
Сообщений: 8
По умолчанию

Незачто)
Помогите пожалуйста решить следующие две задачи!
Sword991 вне форума Ответить с цитированием
Старый 28.06.2011, 13:54   #17
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,119
По умолчанию

ТС - тупой студент?

мегаLOL ((((((((((((((:

хотя иногда эти два варианта трансляции тождественны :D
Rififi вне форума Ответить с цитированием
Старый 28.06.2011, 14:34   #18
Sword991
Новичок
Джуниор
 
Регистрация: 28.06.2011
Сообщений: 8
По умолчанию

Помогите пожалуйста решить остальные две задачи!
Sword991 вне форума Ответить с цитированием
Старый 28.06.2011, 14:47   #19
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

Дружественные числа.


Код:
    var
        n1, n2, sum1, sum2, i: integer;

    begin
        for n1 = 200 to 299 do
        begin
             for n2 = n1 to 300 do
             begin
                  sum1 := 0;
                  sum2 := 0;
                  for i = 1 to (n1 div 2 + 1) do
                      if (n1 mod i = 0) then
                         sum1 := sum1 + i;
                  for i = 1 to (n2 div 2 + 1) do
                      if (n2 mod i = 0) then
                         sum2 := sum2 + i;
                  if ((n1 = sum2) and (n2 = sum1)) then
                     writeln (n1, '  ', n2);
             end;
        end;
    end.
При желании можешь оформить проверку на "дружественность" и/или подсчет суммы делителей оформить отдельной (-ыми) процедурой (-ами).

ЗЫ Пара чисел всего одна -- 220 и 284. Их еще чувак, у которого штаны "во все стороны равны" нашел -)
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на массивы в C# OnlySergio Помощь студентам 4 01.08.2012 12:53
Задачи на массивы 92Edik Паскаль, Turbo Pascal, PascalABC.NET 1 23.05.2011 08:23
массивы задачи ирен Паскаль, Turbo Pascal, PascalABC.NET 1 21.12.2010 21:43
задачи на массивы shadow 05 Помощь студентам 1 13.05.2009 22:45
Задачи на массивы. spankyham Помощь студентам 9 09.04.2009 08:34