Подскажите решение в с++ стоимость проезда в маршрутке – 2грн. количество сидячих мест – 20. количество стоячих – 10. за день 50% поездок маршрутка полностью наполнена, 30% - заполнены только сидячие места, 20% - половина сидячих мест пуста. а) пользователь вводит количество поездок за день, посчитать общую прибыль. б) пользователь вводит расстояние одной поездки, стоимость бензина и расход бензина. посчитать прибыль с учетом расходов на бензин.

👇

Ответ:

mmmmmvbbbbb

14.06.2022

#include <iostream>using namespace std; int main(){ setlocale(LC_ALL, "Russian"); int number=2, number_of_seats=20, full_number, all_people, number_of_standing=10, rashod_all_fuel, number_of_seats__procent, road, number_of_seats_procent, number_of_standing_procent, full_procent, pribl, doroga, coust_fuel, rashod_fuel; cout<<"Введи кількість поїздок"<<endl; cin>>road; full_number=number_of_seats+number_of_standing; full_procent=road*(full_number*0.5); number_of_seats_procent=road*(full_number*0.3); number_of_seats__procent=number_of_seats_procent*0.5; cout<<"Введи проїханий маршут в км"<<endl; cin>>doroga; cout<<"Вартість пального"<<endl; cin>>coust_fuel; cout<<"Расход бензина на 100 км"<<endl; cin>>rashod_fuel; rashod_all_fuel=(road*doroga)*(coust_fuel*rashod_fuel); all_people=number*(full_procent+number_of_seats_procent-number_of_seats__procent); cout<<"Вигода = "<<all_people<<" гривень"<<endl; cout<<"Вигода = "<<all_people-rashod_all_fuel<<" гривень"<<endl; return 0;}

4,5(11 оценок)

Открыть все ответы

Ответ:

Cachu

14.06.2022

Если вы думаете, что величайшие изобретения обычно рождаются в воспаленном сознании одиноких гениев, подумайте еще раз. И ознакомившись с нашим списком десяти изобретений, без которых нашего мира, считай, не было бы, вдумайтесь, насколько они совершенны в своей конструкции. Обычно когда речь идет об изобретателях, в голове всплывает картинка: одинокий гений в своей тайной лаборатории, корпящий над загадочными устройствами, экспериментирующий и перебирающий идеи, пока не доведет их до ума. Так, думаем мы, рождается новое изобретение, невероятное чудо, новая технология, и становится понятно: как было уже не будет.

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

Читая о десяти лучших и прекраснейших изобретениях мира, становится понятно, что ничто не появляется на пустом месте. Любое творение науки и техники рождается из предыдущих наработок, которые складывались в течение десятков или сотен (или тысяч) лет. У каждого изобретения есть свои проблемы, а порой какая-нибудь штука пылится в сундуке, пока не появится другое изобретение (подумайте, например, о космическом лифте). Часто бывает, что лавры славы собирает не изобретатель, которому первому пришла в голову идея, а тот, кто создал ключевой элемент, улучшение, дополнение к изначальной конструкции.

Как и со многими изобретениями в этом списке, человек, который изобрел, по нашему мнению, печатный станок (Иоганн Гутенберг в 1430-х годах), просто улучшил уже существующие технологии и сделал их полезными и достаточно эффективными, чтобы они приобрели популярность. Мир уже пользовался бумагой и блочной печатью — китайцы дошли до этого еще в начале 11 века — но их сложный язык не дал технологии распространиться. Марко Поло привез идею в Европу в 1295 году.Холодильник — отличная штука, использующая веществ поглощать и выгружать тепло, когда меняется давление и состояние вещества (как правило, из газа в жидкость и наоборот). Сложно выделить одного изобретателя холодильника, поскольку эта идея была широко известна и постепенно улучшалась в течение почти 200 лет. Некоторые указывают на конструкцию устройства для сжатия пара, созданную Оливером Эвансом в 1805 году, другие отмечают дизайн настоящего предшественника современного холодильника вроде того, что у вас на кухне, созданный Карлом фон Линде в 1876 году. Десятки изобретателей, включая Альберта Эйнштейна, улучшали или дополняли конструкцию холодильника много лет.Может быть, нечестно объединять телеграф, радио и телевидение в одном «изобретении», но развитие коммуникационных технологий повышало полезность и эффективность сферы в целом с тех пор, как Сэмюэль Морзе изобрел электрический телеграф в 1836 году (работая над совершенно другим, разумеется). Телефон по своей сути повторил и улучшил эту идею, обеспечив людей голосовой связью по медному проводу, в отличие от сугубо текстовых сигналов, прописанных кодом Морзе. Эти методы связи работали от пункта к пункту и требовали обширной инфраструктуры проводов для функционирования.

4,7(13 оценок)

Ответ:

IrinaEfremova2003

14.06.2022

1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.

2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.

3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.

4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.

6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.

7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.

9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.

12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.

13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.

14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.

15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.

16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.

4,7(33 оценок)

Это интересно:

Компьютеры-и-электроника

20.07.2021

Как легко воспроизводить файлы WMV на Ubuntu?...

Компьютеры-и-электроника

06.05.2020

Как перевернуть дисплей компьютера вверх ногами: детальное руководство...

Стиль-и-уход-за-собой

23.02.2022

Как ухаживать за вьющимися от природы волосами...

Образование-и-коммуникации