Pollyyyyyyyyyyyyyyy
21.02.2021 15:10

Сделать программу на Иван Царевич попал в сад Кащея, где росли молодильные яблоки и ананасы бессмертия. У Ивана с собой была только одна волшебная сумка. Если сумку заполнять полностью яблоками, то в нее поместиться M кг яблок, а если только ананасами, то в нее поместиться N кг ананасов. Яблоки и ананасы можно загружать в сумку вместе в любой пропорции. Килограмм яблок стоит на базаре A рублей, килограмм ананасов – B рублей. Иван собирается лететь на рынок на ковре-самолете, который может унести не более D кг груза, не считая самого Ивана. Какую максимальную сумму (в рублях) может получить Иван Царевич за привезенные фрукты?

Формат ввода
Входные данные содержат на одной строке пять целых чисел через пробел: A, B, M, N, D. Все числа в диапазоне от 0 до 1000.

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

Нажмите на рекламу ниже и сразу увидите ответ
Ответ:
Rozeta2003
27.06.2022 15:37

х=7690 - условие

var x, L, M: integer;

begin readln(x);

L:=0;

M:=0;

while x > 0 do begin

1) L:= L + 1 = 1;

M:= M + x mod 10 = 0;

x:= x div 10 = 7 69;

2) L:= L + 1 = 2;

M:= M + x mod 10 = 9;

x:= x div 10 = 7 6;

3) L:= L + 1 = 3;

M:= M + x mod 10 = 15;

x:= x div 10 = 7 ;

4) L:= L + 1 = 4;

M:= M + x mod 10 = 22;

x:= x div 10 = 0;

end;

writeln(L);

write(M);

end.

L = 4; M = 22

Объяснение:

1)L:= L + 1 = 0 + 1 = 1;

M:= M + x mod 10 = 0 + 0 (остаток) = 0;

x:= x div 10 = 7690 : 10 = 769 (остаток 0 здесь не пишется);

2)L:= L + 1 = 1 + 1 = 2;

M:= M + x mod 10 = 0 + 9 (остаток) = 9;

x:= x div 10 = 769 : 10 = 76 (остаток 9 здесь не пишется);

3)L:= L + 1 = 2 + 1 = 3;

M:= M + x mod 10 = 9 + 6 (остаток) = 15;

x:= x div 10 = 76 : 10 = 7 (остаток 6 здесь не пишется);

4)L:= L + 1 = 3 + 1 = 4;

M:= M + x mod 10 = 15 + 7 (остаток) = 22;

x:= x div 10 = 7 : 10 = 0 (остаток 7 здесь не пишется);

0,0(0 оценок)
Ответ:
AnyaNaglova
23.12.2021 04:53
Если число кратно одновременно 7 и 9, то оно кратно и произведению 7×9=63

var
 a,b,m,k,s:integer;
 p:real;

begin
  Write('Введите границы интервала: '); Read(a,b);
  if a>b then begin
    m:=a; a:=b; b:=m
    end;
  m:=a mod 63;
  if m>0 then a:=a+63-m
  else if m<0 then a:=a-m;
  s:=0; p:=1; k:=0;
  while a<=b do begin
    s:=s+a; p:=p*a; k:=k+1;
    a:=a+63
    end;
  Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
  Writeln('Количество ',k,', сумма ',s,', произведение ',p)
end.

Пример
Введите границы интервала: 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 3.65675480699261E+74
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота