VPF::[Pascal] Последовательность, цикл и выборка

Oriander

Дата 16.12.2009, 17:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте, уважаемые и добрые посетители данной темы.
Мне задали задачу, я вообще не могу понять её сути и вообще
у меня не вкладываеться в голове, как решить столь простую.
Помогите вытянуть меня на 4-ку, ибо будет мне ой как худо smile

Итак, задача:
Дана последовательность непарных(нечетных) чисел от (1..20) - от одного до двадцати.
1, 3, 5... 19
Вычислить первое число с последовательности, сумма цифр которого будет
меньшая заданного числа А. Число А ввести. Решить эту задачу двумя методами
в двух программах: с циклом с передусловием и послеусловием.
Все.

Ну хоть убейте, понять ничего не могу:
знаю, что такое циклы, знаю что такое функция odd()
знаю как это использовать во многих задачах, но уловить
суть этой задачи в упор не могу...

smile

Это сообщение отредактировал(а) Oriander - 21.12.2009, 20:57

Sartorius

Дата 16.12.2009, 18:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

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

Код


var A, i : integer;     
begin
  Read(A);
  i := 1;
  While i < 19 do
  begin
      if (i div 10 + i mod 10) < A then
      begin
        WriteLn(i);
        Break;
      end;    
      i := i + 2;
   end;
end.

Код


var A, i : integer;     
begin
  Read(A);
  i := 1;
  Repeat
      if (i div 10 + i mod 10) < A then
      begin
        WriteLn(i);
        Break;
      end;    
      i := i + 2;
   Until i > 19;
end.

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