М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
swordfishtrombone
swordfishtrombone
30.06.2020 21:13 •  Информатика

На кондитерской фабрике есть некоторое количество пирожных нескольких разных видов. пирожных разных видов может быть разное количество. было принято решение отвезти пирожные на продажу на ярмарку, но директор фабрики решил, что кондитерские изделия на ярмарочной витрине должны быть выложены одинаковыми , при этом пирожных каждого вида должно быть одинаковое количество. необязательно отвозить на ярмарку все виды пирожных, можно выбрать некоторые виды и взять одинаковое число пирожных каждого выбранного вида.

директору отвезти на ярмарку наибольшее число пирожных — найдите, сколько видов пирожных и сколько пирожных каждого вида нужно отвезти на ярмарку.

например, если на фабрике есть три вида пирожных количеством 4, 10 и 7 штук, то у директора фабрики есть следующие возможности.

а) взять только один вид пирожных, тогда он сможет взять 10 пирожных одного вида.

б) взять два вида пирожных, тогда он сможет взять по 7 пирожных второго и третьего вида, всего 14 пирожных.

в) взять три вида пирожных, тогда он сможет взять только по 4 пирожных каждого вида, всего 12 пирожных.

больше всего пирожных получится в случае б).

вам необходимо решить эту для следующих пяти примеров набора пирожных на фабрике. в примере указано количество пирожных каждого вида.

пример 1: 1, 2, 3, 4, 10 (всего 5 видов пирожных).

пример 2: 5, 4, 9, 7, 1, 3 (всего 6 видов пирожных).

пример 3: 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5 (всего 15 видов пирожных).

пример 4: 1, 2, 3, 99 (все числа от 1 до 99, всего 99 видов пирожных).

пример 5: 51, 53, 55, 99 (все нечётные числа от 51 до 99, всего 25 видов пирожных).

для каждого примера определите, какое количество видов пирожных необходимо выбрать и сколько пирожных каждого выбранного вида нужно выбрать, чтобы максимизировать общее число выбранных пирожных.

ответ запишите в виде пяти строк, одна строка содержит ответ на один пример в виде двух чисел, записанных через пробел. первое число — количество выбранных видов пирожных, второе число — количество пирожных каждого выбранного вида, которое необходимо взять. например, для примера 4, 10, 7 ответ нужно записать в виде:

вы должны записать в ответе ровно пять строк. если вы не можете найти ответ на какой-то из пяти примеров, запишите в этой строке два любых целых положительных числа.​

👇
Ответ:
KitBanin
KitBanin
30.06.2020

Пример 1:  3  3

Пример 2:  2  7

Пример 3:   4  1

Пример 4:  25   5

Пример 5:   15   13

4,8(50 оценок)
Открыть все ответы
Ответ:
tvoibati00
tvoibati00
30.06.2020
1 вариант (с использованием типа real)

program raf105;

var a:array[1..8] of real;

i,n:integer;

x:real;

begin

write('Введите номер билета: ');

readln(x);

n:=8;

for i:=1 to 8 do

begin

 n -= 1;

 if i=1 then

   a[i]:= trunc(x / (10**7))

 else if i=8 then

   a[i]:= round(frac(x / 10)*10)

 else

 a[i]:= round(frac((trunc(x / (10**n))) / 10)*10);

end;

if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]

 then writeln('Номер билета является счастливым')

 else writeln('Номер билета не является счастливым');

end.

2 вариант (с использованием типа string)

program raf105;

var a:array[1..8] of integer;

i:integer;

x:string;

begin

write('Введите номер билета: ');

readln(x);

for i:=1 to 8 do

 a[i]:= ord(x[i])-48;

if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]

 then writeln('Номер билета является счастливым')

 else writeln('Номер билета не является счастливым');

end.

Язык PascalABC

4,8(22 оценок)
Ответ:
azhiltsova15ozb142
azhiltsova15ozb142
30.06.2020
1
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 2 = 0
        then
            Writeln('Число чётное')
        else
            Writeln('Число не чётное');
    readln;
end.

2
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 3 = 0
        then
            Writeln('Число делится на 3')
        else
            Writeln('Число не делится на 3');
    readln;
end.

3
program z;
var
    i: array[1..6] of byte;
    x:byte;
begin
    for x:=1 to 6 do
   
        begin
            Writeln('Введите ', x,' цифру из 6 ');
            Read(i[x]);
        end;
    if (i[1]+i[2]) = (i[4]+i[5]+i[6])
        then
            Writeln('Билет счастливый')
        else
            Writeln('Билет не счастливый');
    Readln;
end.
       
5)))
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 6 = 0
        then
            Writeln('Число делится на 6')
        else
            Writeln('Число не делится на 6');
    readln;
end.
6
program z;
var
    a,b:integer;
begin
    Writeln('Введите число A'); Readln(a);
    Writeln('Введите число B'); Readln(b);
    if b mod a = 0
        then Writeln('Число А делится нацело на число В')
        else Writeln('Число А не делится нацело на число B');
    Readln;
end.
       
4,8(29 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ