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

Напишите программу вычисления идеального веса человека по формуле идеальный вес=рост в см-100. значение роста вводится с клавиатуры. входные данные 165 входные данные идеальный вес человека ростом 165см равен 65 кг программа на языке паскаль

👇
Открыть все ответы
Ответ:
Ди1233
Ди1233
16.04.2020

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var n := ReadInteger();

 var a := Range(1, n);

 //Sum

 a.Sum.Println;

 //произведение

 a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;

 //Кол-во кратных 2 и 3

 a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;

 //Среднее ряда

 a.Average.Round.Println

end.

#2

begin

 var A := ReadArrInteger(10);

 A.Println;

 //максимум

 A.Max.Println;

 //Сумма кратных 2 и 3

 A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println

end.

4,6(13 оценок)
Ответ:
altinbex
altinbex
16.04.2020

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

double a[50], s = 0, count = 0;

srand(time(NULL));

for (int i = 0; i < 50; i++)

{

 a[i] = -30 + rand() % 41;

               if(a[i]>0)

 {

                      s += a[i];

        count++;

               }

}

cout << s / count << endl;

system("pause");

return 0;

}



Выражение rand() % 41 рандомно принимает любое возможное значение остатка при делении на 41 ( от нуля до 40-а), следовательно -30+ rand()%41 рандомно принимает значение от -30-и до 10-и. Выбираем 50 таких рандомных чисел и храним их в массиве а, заодно в переменной s очередное число, если оно положительное а в переменной count считаем количество положительных чисел. s/count будет средней арифметической всех положительных чисел промежутка.

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