Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
<span>В России построена первая телеграфная линия - 40-е гг. 19 века.</span>
<span>В Америке изобретён телефон - 1876 г</span>
<span>Русский ученый Попов открыл радиосвязь - <span>1895 г.</span></span>
Создан первый телевизор - 30-е гг. 20 века
<span><span><span><span><span><span><span><span>В США начала функционировать первая в мире компьютерная - </span>1969 г. </span></span></span></span></span></span></span>
Смотри во вложенном pdf-документе.
Карп корп кора коза по другому не знаю
//Решение для годовой процентной ставки
#include <iostream>
#include <math.h>
#include <iomanip>
#define MONT 12
#define PER 100
using namespace std;
int main()
{
unsigned int credit, period;
double montpay;
cout << "Input loan amount: ";
cin >> credit;
cout << "Input crediting period (years): ";
cin >> period;
cout << setw(15) << "INTEREST RATE | " << setw(15) << "MONTHLY WAGE | " << setw(13) << "TOTAL PAYMENT" << endl;
for(double p = 5.; p <= 8.; p += 1./8) {
montpay = credit * p / MONT / PER * pow(1 + p / MONT / PER, period * MONT) / (pow(1 + p / MONT / PER, period * MONT) - 1);
cout << setw(9) << fixed << setprecision(3) << p << "%" << setw(15) << fixed << setprecision(2) << montpay << setw(16) << fixed << setprecision(2) << montpay * period * MONT << endl;
}
return 0;
}
//Редактор не сохраняет форматирование => прикрепил .cpp файл