Вопрос по информатике:
В магазин привезли n мешков с сахаром, вес которого указан в фунтах. Переведите вес каждого мешка в килограммы. Определите самый легкий мешок. (1 фунт = 453,592 грамма)
Пожаловаться
- 19.08.2018 16:40
- Информатика
- remove_red_eye 14152
- thumb_up 12
Ответы и объяснения 2
#include
int main(){
int n;
float weight, lw = 0;
const float ft = 0.453592; // kg
std::cout << "number of bags: ";
std::cin >> n;
for (int i = 0; i < n; i ++){
std::cout << "weight is ";
std::cin >> weight;
std::cout << "in kg " << weight * ft << "\n";
if (lw != 0 && weight < lw) lw = weight;
else lw = weight;
}
std::cout << "the lightest bag is " << lw << " kg\n";
}
int main(){
int n;
float weight, lw = 0;
const float ft = 0.453592; // kg
std::cout << "number of bags: ";
std::cin >> n;
for (int i = 0; i < n; i ++){
std::cout << "weight is ";
std::cin >> weight;
std::cout << "in kg " << weight * ft << "\n";
if (lw != 0 && weight < lw) lw = weight;
else lw = weight;
}
std::cout << "the lightest bag is " << lw << " kg\n";
}
Пожаловаться
- 21.08.2018 00:31
- thumb_up 31
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqReal(ReadInteger).Select(t->t*0.453592).ToArray;
a.Println; a.Min.Println;
end.
Пример
10
32.6 29.4 30.7 31 29.92 43.4 41.26 42 38.82 40.05
14.7870992 13.3356048 13.9252744 14.061352 13.57147264 19.6858928 18.71520592 19.050864 17.60844144 18.1663596
13.3356048
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqReal(ReadInteger).Select(t->t*0.453592).ToArray;
a.Println; a.Min.Println;
end.
Пример
10
32.6 29.4 30.7 31 29.92 43.4 41.26 42 38.82 40.05
14.7870992 13.3356048 13.9252744 14.061352 13.57147264 19.6858928 18.71520592 19.050864 17.60844144 18.1663596
13.3356048
Пожаловаться
- 21.08.2018 15:50
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы