Важная информация
Показано с 1 по 2 из 2

Тема: Задачи с числами

  1. #1 Задачи с числами 
    Новичок
    Регистрация
    25.11.2010
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1) Дано натуральное число:
    а) Найти произведение цифр числа;
    b) верно ли, что в данном числе нет данной цифры А
    (цифр А вводить с клавиатуры).

    2) Найти все трёхзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.

    3) Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

    4) Найти сумму нечётных делителей натурального числа.

    5) Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S (a и b,
    а площадь равна S (а и b принадлежат интервалу от 20 до 1, а S вводится с клавиатуры).
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Первая задачка:
    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Xint% = 16232
    Xstr$ = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](Xint%))
    Xlen% = [Ссылки могут видеть только зарегистрированные пользователи. ](Xstr$)
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "A=", A%
    Ain% = 0
    Xresult = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](Xstr$, 1, 1))
    IF Xresult = A% THEN Ain% = 1
    FOR I = 2 TO Xlen%
    Xin% = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ](Xstr$, I, 1))
    IF Xin% = A% THEN Ain% = 1
    Xresult = Xresult * Xin%
    NEXT I
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Proizvedenie=", Xresult
    IF Ain% = 1 THEN
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Neverno"
    ELSE
    [Ссылки могут видеть только зарегистрированные пользователи. ] "Verno"
    [Ссылки могут видеть только зарегистрированные пользователи. ] IF
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите решить задачи пожалуйста
    от vetal в разделе Turbo Pascal
    Ответов: 6
    Последнее сообщение: 28.04.2012, 20:36
  2. Задачи с массивами
    от Дмитрий 1993 в разделе QBasic
    Ответов: 13
    Последнее сообщение: 04.03.2012, 05:57
  3. Задачи qbasic
    от sanchez6666 в разделе QBasic
    Ответов: 25
    Последнее сообщение: 08.11.2011, 00:10
  4. 2 несложные задачи
    от Polina в разделе QBasic
    Ответов: 5
    Последнее сообщение: 10.05.2011, 04:42
  5. Задачи для начинающих
    от BukTop2009 в разделе QBasic
    Ответов: 1
    Последнее сообщение: 23.11.2010, 00:39
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •