21.10.2019, 02:00 [+3 UTC]
в нашей команде: 3 890 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
11.10.2019, 14:47

Последний вопрос:
21.10.2019, 00:06
Всего: 150654

Последний ответ:
20.10.2019, 20:38
Всего: 259251

Последняя рассылка:
20.10.2019, 19:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
08.12.2010, 20:09 »
novij2011
спасибо за помощь [вопрос № 181114, ответ № 264596]
02.12.2009, 08:46 »
Иванов Виктор Олегович
Огромное спасибо! Это то, что мне нужно. Я еще не работал с этим компонентом, мало знаю о нем. Вы меня очень выручили! [вопрос № 174748, ответ № 257181]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

zdwork
Статус: 6-й класс
Рейтинг: 858
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 238
puporev
Статус: Профессионал
Рейтинг: 79

Перейти к консультации №:
 

Консультация онлайн # 196610
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: levushka-ivlev (Посетитель)
Отправлена: 08.10.2019, 17:43
Поступило ответов: 1

Здравствуйте! Прошу помощи в следующем вопросе:В комнате могут стоять стулья и табуретки. У каждого стула 4 ножки, у каждой табуретки 3 ножки. Всего в комнате N ножек.
Сколько в комнате стульев и сколько табуреток?

Состояние: Консультация закрыта

Ответ # 278871 от zdwork (6-й класс)

Здравствуйте, levushka-ivlev!

Вот - как-то так...

Код (Pascal) :: выделить код
{ В комнате могут стоять стулья и табуретки. У каждого стула 4 ножки, у каждой табуретки 3 ножки.
 Всего в комнате N ножек. Сколько в комнате стульев и сколько табуреток.}

program Kol_Mebel;

var
  x, y, n: integer;
  i, j, k: integer;

begin
  write('Кол-во ножек - ');
  readln(n); 
  k := 1; // Кол- вариантов
  case n of
    3: writeln('Кол-во табуреток - 1');
    4..6: writeln('Кол-во или стул - 1 или табуретка - 1');
    7: writeln('Кол-во стул - 1 и табуретка - 1');
  else 
    if n < 3 then writeln('Вариантов Кол-ва : 0')
    else writeln('Варианты Кол-ва :')
  end;
  x := (n - 3) div 4; // Максимальное кол-во стульев
  y := (n - 4) div 3; // Максимальное кол-во табуреток
  for i := 1 to x do
    for j := 1 to y do
      if (3 * j + 4 * i) = n then 
      begin
        writeln('Вариант - ', k); k := k + 1;
        writeln('Кол-во стульев - ', i);
        writeln('Кол-во табуреток - ', j);
      end;   
end.

Последнее редактирование 10.10.2019, 12:30 Зенченко Константин Николаевич (Старший модератор)

Консультировал: zdwork (6-й класс)
Дата отправки: 09.10.2019, 10:28

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 196610

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 1

= общий = | 10.10.2019, 13:16 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
zdwork:

© Цитата:
4..6: writeln('Кол-во или стул - 1 или табуретка - 1');

Ошибка в программе.
4:= один стул;
5:=вариантов нет;
6:=две табуреткию

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13106 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35