VPF::Трёхзначные числа - Форум программистов

Warfire

Дата 10.12.2009, 18:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем здрасте, помогите сделать программу на Паскале где комп пишет все трёхзначные числа, где сумма 1-ой и 3-ей цифры равны 2-ой цифре(121,134 и т.д) с циклами и где он выводит сколько всего таких чисел всего, а то только начинаем изучать Паскаль. smile

ФедосеевПавел

Дата 10.12.2009, 23:22 (ссылка)

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

Загрузка ...

Опытный

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

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

Лови

Код


PROGRAM Summa;
VAR
  First,                        {Первая цифра числа}
  Second,                       {Вторая цифра числа}
  Third         : Integer;      {Третья цифра числа}
  Count         : Integer;      {Счетчик найденных чисел}
BEGIN
  Count:=0;
  for Second:=0 to 9 do begin
    for First:=1 to Second do begin
      Third:=Second-First;
      Inc(Count);
{      WriteLn('Число=',First, Second, Third);} {вывод результата в столбик}
      Write(First, Second, Third, ' ');                 {вывод результата в несколько строк}
    end;
  end;
  WriteLn;
  WriteLn('Count=',Count);
END.

А как работает - надеюсь, разберёшься самостоятельно.

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