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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2011, 07:21   #1
vesper182
 
Регистрация: 22.11.2011
Сообщений: 6
Восклицание две задачи

1. Лыжник в первый день прошел х километров каждый день увеличил процент на у процентов. Определить ежедневный пробег за 6ой день.
2.Среди двузначных чисел определить такие сумма цифр которых кратно 8.

Паскаль

Последний раз редактировалось vesper182; 17.12.2011 в 07:30.
vesper182 вне форума Ответить с цитированием
Старый 17.12.2011, 07:56   #2
Felian
Пользователь
 
Регистрация: 13.11.2011
Сообщений: 24
По умолчанию

1.
Код:
// x - пробег в первый день
// day - день, пробег за который надо узнать
// y - число от 0 до 1 (т. е. это значит от 0 до 100%)
// возвращает пробег за day'й день
function probeg(x: Integer; day: Integer; y: Integer): Integer;
var
  i: Integer;
begin
  i := 1; 
  while (i < day)
  begin
    x := x + (x*y);
    i := i + 1;
  end;
  Result := x;
end;
2.
Код:
// пишет на экран двузначные числа, сумма цифр которых кратна 8
procedure sum_div_8();
var
  i: Integer;
  s: Integer;
begin
  i := 10;
  while i < 100 do
  begin
    s := (i div 10) + (i mod 10); // сумма первой цифры и второй
    if s mod 8 = 0 then
      Write(i, '; ');
    i := i + 1;
  end;
end;

// если понравился мой ответ, добавь + в репутацию

Последний раз редактировалось Felian; 17.12.2011 в 08:06.
Felian вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи vesper182 Помощь студентам 5 02.12.2011 18:16
Две задачи. no name777 Помощь студентам 5 27.05.2011 01:06
две задачи metall-nya Паскаль, Turbo Pascal, PascalABC.NET 0 26.12.2010 04:17
две задачи!!! LOVELY Помощь студентам 2 30.01.2009 01:35
две задачи на С++ ELL Помощь студентам 0 01.06.2008 01:28