| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе:В комнате могут стоять стулья и табуретки. У каждого стула 4 ножки, у каждой табуретки 3 ножки. Всего в комнате N ножек.
Дата отправки: 08.10.2019, 17:43 Консультирует 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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
