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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2017, 10:40   #1
ddaaa
Новичок
Джуниор
 
Регистрация: 29.12.2017
Сообщений: 2
По умолчанию Натуральные числа в Visual Basic

Здравствуйте. Не могли бы вы помочь написать код к этой задаче? - Существуют ли натуральные числа a < 100, которые обладают следующими свойствами: а) a mod 3 = 1, б) a mod 4 = 2, в) a mod 5 = 3, г) a mod 6 = 4. Сколько их?
ddaaa вне форума Ответить с цитированием
Старый 31.12.2017, 17:31   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Т.е. число должно обладать всеми 4-мя свойствами ? Или у нас получится 4 массива - по каждому свойству ?
Для первого варианта на Паскале это выглядит приблизно так:
Код:
program Lab7;

var i,j,n : integer ;
begin
  n := 0 ;
  for i := 0 to 16 do
    begin
      j := i * 6 + 4 ;
      if ((j mod 5)=3) and ((j mod 4)=2)and ((j mod 3)=1) then
        begin n := n + 1; Writeln (j) end ;
    end ;
  Writeln ('Total = ',n) ;
end.
Таких чисел - 1. Оно 58. А перепереть с Паскаля на VB - сделай сам.

Последний раз редактировалось digitalis; 01.01.2018 в 15:12.
digitalis вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual basic - получить числа Фибоначчи с номерами N и M Евгений Самойлов Помощь студентам 7 15.03.2020 20:34
Даны натуральные числа N, M. Найти все натуральные числа, меньшие N, квадрат суммы цифр которых равен M Namatrasnik Помощь студентам 1 03.11.2016 23:29
Поиск числа с максимальным количеством нулей (конечный автомат) Visual basic ArturMur Помощь студентам 3 12.11.2015 15:10
Даны натуральные числа a и b (a<b). Получить все простые числа из промежутка от a до b. ( с# ) NastyaShuvalova Помощь студентам 0 16.12.2013 18:08