Запас рыбы в пруду 1000т ежегодный прирост 12%. план отлова 189т. наименьший запас рыбы, при котором он становится невосстановимым - 250т. отразите количество рыбы в пруду на 20 лет. таблица в excel.
//pascal //для натуральных чисел var a, s, p: integer; begin write('введите число = '); readln(a); s : = 0; p : = 1; while (a< > 0) do begin p : = p * (a mod 10); s : = s + (a mod 10); a : = a div 10; end; writeln( 'сумма цифр числа = ', s); writeln( 'произведение цифр числа = ', p); end. //если число отрицательное var s, p, a, b, c: integer; f: boolean; begin write('введите число = '); readln(a); if a < 0 then f : = true; a : = abs(a); b : = a mod 10; a : = a div 10; c : = a mod 10; a : = a div 10; if f = true then begin p : = (-a) * b * c; s : = -a + b + c; end else begin s : = a + b + c; p : = a * b * c; end; writeln('сумма цифр числа = ', s); writeln('произведение цифр числа = ', p); end.
Задача 1 (программа на С++)
#include <iostream>
using namespace std;
int main() {
double a, b, c, d;
cout << "Введите четыре числа" << endl;
cin >> a >> b >> c >> d;
double k;
k = (a*a + b*b + c*c + d*d)/4;
cout << "Среднее арифметическое квадратов введённых чисел равно: " << k;
return 0;
}
Задача 2 (программа на языке С++)
#include <iostream>
using namespace std;
int main() {
double s;
cout << "Введите пройденное расстояние" << endl;
cin >> s;
double v;
cout << "Введите скорость движения" << endl;
cin >> v;
double t;
t = s/v*60;
cout << "На дорогу затрачено: " << t << " минут";
return 0;
}