VPF::[Pascal] Вывести числа у которых пятая цифра

Zmei

Дата 15.1.2007, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

Помогите решить....пожалуйста... smile

1) Из всех шестизначных чисел вывести на экран только те, у которых пятая цифра делится на вторую
с остатком, равным 2. Подсчитать, сколько таких чисел. Если таких чисел нет, вывести об этом сообщение.
2) Определить количество рулонов обоев, необходимых для оклейки комнаты размером a*b*c, в которой 2 окна размером d*c и 2 двери размером f*h. В одном рулоне 10 метров, ширина обоев 50 см.

M
Alexeis

Модератор: Пожалуйста, один топик - один вопрос.

Модератор: Название темы должно отражать ее суть!

Это сообщение отредактировал(а) Alexeis - 15.1.2007, 21:28

Alexeis

Дата 16.1.2007, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

!
Alexeis

Модератор: Пожалуйста, один топик - один вопрос.

Вы испытываете мое терпение? Последнее устное предупреждение.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

V.A.KeRneL

Дата 17.1.2007, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Vadim A. Kazantsev

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 3.12.2006
Где: Moscow, Russia

Репутация: 7
Всего: 14

Код


uses 
    Crt;

var 
    num, cnt, second, fifth : longint;

BEGIN 
    ClrScr;
    
    for num := 100000 to 999999 do begin 
        second := (num div    10) mod 10;
        fifth  := (num div 10000) mod 10;
        if (second <> 0) then 
            if ((fifth mod second) = 2) then begin 
                writeln(num);
                cnt := cnt + 1;
            end;
    end;
    
    if (cnt = 0) then 
        writeln('No such numbers.');  { :-D }
    
    readln;
END.

Это если считать цифры с конца числа. А если надо с начала, то просто поменяй ``(num div 10) mod 10;'' и ``(num div 10000) mod 10;'' местами.

Это сообщение отредактировал(а) V.A.KeRneL - 17.1.2007, 15:16

--------------------

«C'est un pense-creux d'ici. C'est le meilleur et le plus irascible homme du monde...» © Ф.М. Достоевский, «Бесы»
---/)/)---(\.../)---(\(\
--(':'=)---(=';'=)---(=':')
(")(")..)-(").--.(")-(..(")(")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »