На кондитерской фабрике есть некоторое количество пирожных нескольких разных видов. пирожных разных видов может быть разное количество. было принято решение отвезти пирожные на продажу на ярмарку, но директор фабрики решил, что кондитерские изделия на ярмарочной витрине должны быть выложены одинаковыми , при этом пирожных каждого вида должно быть одинаковое количество. необязательно отвозить на ярмарку все виды пирожных, можно выбрать некоторые виды и взять одинаковое число пирожных каждого выбранного вида. директору отвезти на ярмарку наибольшее число пирожных — найдите, сколько видов пирожных и сколько пирожных каждого вида нужно отвезти на ярмарку.например, если на фабрике есть три вида пирожных количеством 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 ответ нужно записать в виде: вы должны записать в ответе ровно пять строк. если вы не можете найти ответ на какой-то из пяти примеров, запишите в этой строке два любых целых положительных числа.
Ответы
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
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Фарфоровая чашка объект свойства величина значение
Автор: keykov35
В чем отличие гироскопического датчика от других датчиков?
Автор: tretyakovamarina201155
Даны натуральные числа от 35 до 87. найти и напечатать те из них, которые при делении на 7 остаток 1
Автор: julianikaleksandrova
Как в pascal работать с файлами, в input начальные данные, output выведенные
Автор: fialkaflowers77
Аппаратное программное обеспечение локальной сети не включает
Автор: metrikajulia
Сделать программу в small basic расчерчивающую графическое окно в клеточку
Автор: irinanikulshina144
Пример 1: 3 3
Пример 2: 2 7
Пример 3: 4 1
Пример 4: 25 5
Пример 5: 15 13