CockDown
10.01.2023 14:25

Розв'язати компетентну задачу . Родина з Дніпропетровська планує протягом року подорожувати до різних
міст України автомобілем. Знайдіть відстані від Дніпропетровська до
Києва, Львова, Харкова, Одеси, Херсона, Донецька та орієнтовну вартість
пального А-95. Визначте необхідні технічні характеристики автомобіля –
обсяг бака для палива та витрати палива на 100 км, якщо родина
подорожує автомобілем Nissan Note з двигуном 1,6 л та автоматичною
коробкою передач.
Створіть електронну таблицю, у якій укажіть відстані від
Дніпропетровська до вказаних міст, розрахуйте кількість, необхідного
пального та вартість палива до кожного міста, а також за формулою з
використанням логічної функції визначте, до яких міст необхідно додатково
заправляти автомобіль по дорозі. Побудуйте діаграму, на якій відобразіть
відстані й вартість поїздки до кожного з міст.
Виберіть місто, до якого, на вашу думку, слід поїхати в першу чергу, та аргоментуйте на ваш вибір.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ыыыап
02.01.2021 03:38
#include < bits/stdc++.h>   using namespace std;   int main(){        int n, m, k, c = 0, c1 = 0;         cin > > n > > m > > k;         c = n + m;         if (c % k == 0)        {                c1 = c / k;         }        else        {                c1 = (c / k) + 1;         }        if (2 * c1 < = m)        {                cout < < c1;         }        else        {                cout < < 0;         }         //cout < < "hello world! " < < endl;         return 0; }//sadasdadasdasdasd
0,0(0 оценок)
Ответ:
8Мария11
02.02.2021 21:57

var

 a: string;

 b: array[1..9]of integer;

 sort: boolean;

 max, k: integer;

begin

 Readln(a);

 for var i := 1 to Length(a) do

   b[i] := strtoint(a[i]);

 sort := false;

 while sort = false do

 begin

   sort := true;

   k += 1;

   for var i := 1 to Length(a)-1 do

   begin

     if a[i] < a[i+1] then

     begin

       sort := false;

       var value2 := a[i];

       a[i] := a[i+1];

       a[i+1] := value2;

     end;

   end;

 end;

 write(a[1]);

end.

Программа написана на PascalABC.net

на free pascal или turbo pascal она может не работать

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота