28.02.2020, 03:01 [+3 UTC]
в нашей команде: 4 242 чел. | участники онлайн: 5 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.82 (22.02.2020)
JS-v.1.35 | CSS-v.3.37

Общие новости:
06.01.2020, 22:45

Форум:
27.02.2020, 21:42

Последний вопрос:
27.02.2020, 21:18
Всего: 151688

Последний ответ:
27.02.2020, 18:42
Всего: 259815

Последняя рассылка:
28.02.2020, 02:15

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

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

Наша кнопка:

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

Отзывы о нас:
13.12.2010, 17:57 »
Detsle
Огромное спасибо, очень помогли, и расписали! Спасибо! [вопрос № 181311, ответ № 264724]
03.09.2019, 09:10 »
dar777
Это самое лучшее решение! [вопрос № 196293, ответ № 278641]
19.11.2010, 10:51 »
Вадим
Спасибо за ответ! Всё действительно так и есть. [вопрос № 180842, ответ № 264199]

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

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

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

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

Gluck
Статус: Студент
Рейтинг: 274
puporev
Статус: Профессор
Рейтинг: 121
Асмик Гаряка
Статус: Советник
Рейтинг: 115

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

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

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

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

Ответ # 278871 от Gluck (Студент)

Здравствуйте, 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 Зенченко Константин Николаевич (Старший модератор)

Консультировал: Gluck (Студент)
Дата отправки: 09.10.2019, 10:28

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

+1

[подробно]

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

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

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

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

ID: 31795

# 1

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

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

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

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

 

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

Яндекс Rambler's Top100

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

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

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.82 от 22.02.2020
Версия JS: 1.35 | Версия CSS: 3.37