Перевести код с c++ на pascal (турбо паскаль)#include #include #include using namespace std; const double eps = 0.01; double func(double x) {return x*sinh(x); }double simpson_integral(double a, double b, int n){ const double h = (b-a)/n; double k1 = 0, k2 = 0; for(int i = 1; i < n; i += 2) { k1 += func(a + i*h); k2 += func(a + (i+1)*h); } return h/3*(func(a) + 4*k1 + 2*k2); }int main(){ double s1, s; double a = 0, b = 1; int n = 2; s1 = simpson_integral(a, b, n); do { s = s1; n = n + 1; s1 = simpson_integral(a, b, n); } while (fabs(s1 - s) > eps); cout < < s1 < < endl; return 0; }
В первом отряде N мальчиков и 2N девочек. Это 3N детей. Во втором в 5 раз больше. Это еще 15N детей. В сумме 18N. В третьем еще столько же. Это 36N. В четвёртом в 10 раз больше чем девочек в первом. Это 20N. В итоге выходит 56N.
using System;
namespace t29764806
{
internal class Program
{
private static void Main(string[] args)
{
Console.WriteLine("Введите количество мальчиков в первом отряде");
Console.WriteLine($"Количество детей во всём лагере: {56 * int.Parse(Console.ReadLine())}");
}
}
}
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
- Самая ценная информация – объективная, достоверная, полная, и актуальная.