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

Написать программу (в паскаль) по закупке товаров в магазине на определённую сумму денег, не превышающую заданное количество денег. входные данные: с клавиатуры вводится сумма, на которую предполагается произвести покупки. затем вводятся цена и количество товара №1, товара №2 и т.д. до тех пор пока не будет исчерпана сумма денег.

👇
Ответ:
Мирэя
Мирэя
22.07.2022
Uses crt;
var s:integer;
     b,y,a:real;
begin
write('Введите сумму денег, на которую собираетесь произвести покупки: ');
read(a);
while a>0 do begin
  s:=s+1;
  write('Товар №',s,': ');
  read(b);
  write('Введите количество: ');
  read(y);
  a:=a-(b*y);
 end;
end.
4,5(85 оценок)
Ответ:
led98918
led98918
22.07.2022
Uses crt;
var
sum,x,itog: real;
i,y: integer;
begin
i:=1;
itog:=0;
write ('Start summa: ');
readln (sum);
while (itog<sum) do
begin
write ('¹',i,': ');
i:=i+1;
readln (x);
write ('Kol-vo: ');
readln (y);
itog:=itog+y*x;
end;
if (itog>sum) then
writeln ('Itog: ',itog-y*x)
else
writeln ('Itog: ',itog);
end.
4,8(68 оценок)
Открыть все ответы
Ответ:
06anna11
06anna11
22.07.2022

Решение на C#

using System;

using System.Linq;

namespace Samokat

{

   class Program

   {

       static void Main(string[] args)

       {

           var input = Console.In

               .ReadLine()

               .Split(',', ' ')

               .Where(t => !String.IsNullOrEmpty(t))

               .Select(int.Parse)

               .ToList();

           int flatLen = input[0];

           int uphillLen = input[1];

           int flatDrain = input[2];

           int uphillDrain = input[3];

           int fuel = input[4];

           // minimizing flat travel

           int minFlatLen = flatLen - fuel;

           minFlatLen = minFlatLen < 0 ? 0 : minFlatLen;

           int maxUphillLen = uphillLen - (fuel - (flatLen - minFlatLen)) / 2;

           maxUphillLen = maxUphillLen < 0 ? 0 : maxUphillLen;

           // minimizing uphill travel

           int minUphillLen = uphillLen - (fuel) / 2;

           minUphillLen = minUphillLen < 0 ? 0 : minUphillLen;

           int maxFlatLen = flatLen - (fuel - (uphillLen - minUphillLen) * 2);

           maxFlatLen = maxFlatLen < 0 ? 0 : maxFlatLen;

           int minFlatTravelDrain = minFlatLen * flatDrain + maxUphillLen * uphillDrain;

           int maxFlatTravelDrain = maxFlatLen * flatDrain + minUphillLen * uphillDrain;

           var minDrain = Math.Min(minFlatTravelDrain, maxFlatTravelDrain);

           var maxDrain = Math.Max(minFlatTravelDrain, maxFlatTravelDrain);

           Console.Out.WriteLine(minDrain);

           Console.Out.WriteLine(maxDrain);

       }

   }

}

4,4(8 оценок)
Ответ:
fykdshklf
fykdshklf
22.07.2022

1. Всего 5 деревьев.

По условию ни берёза, ни ель, ни клён, даже не липа на первом месте.

Значит, самое высокое дерево - Тополь.

2. Т.к. липа отстала от тополя на два места, то она на третьем месте по высоте.

3. Получается вот такой промежуток по возрастанию:

(?, ?, Липа, ?, Тополь)

Т.к. ель идёт сразу за клёном, то они занимают последние два места по высоте.

То есть ель на 5-ом месте, клён - на 4-ом.

4. Остаётся только 2 место и только береза.

береза - 2 место

ответ от меньшего к большему: Ель, Клён, Липа, Берёза, Тополь.

4,8(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ