Составить программу для решения следующей : приближенно можно считать, что скорость охлаждения горячего чая, налитого в стакан, пропорциональна разности между его температурой и температурой воздуха. за 1 минуту температура чая снижается на 3 % от разности этих температур. вывести на экран температуру чая по истечении каждой минуты в течении 15 минут. начальная температура воздуха - 20 градусов, начальная температура чая - 100. протокол: через 0 мин. - 100 градусов через 1 мин. - 97, 6 градусов через 2 мин. - 95, 3 градусов через 3 мин. - 93, 1 градусов …

Считаем, что изменением температуры воздуха можно пренебречь:
var t,t1:real; i:integer;
begin
t:=100;
t1:=20;
for i:=0 to 15 do
 begin
 writeln('Через ',i,' мин. - ',t:4:1,' градусов');
 t:=t-(t-t1)*0.03;
 end;
end.

Результат:
Через 0 мин. - 100.0 градусов
Через 1 мин. - 97.6 градусов
Через 2 мин. - 95.3 градусов
...
Через 14 мин. - 72.2 градусов
Через 15 мин. - 70.7 градусов

/*
1. Описать класс с именем MARSH, содержащую следующие, поля:
• BEGST — название начального пункта маршрута;
• TERM — название конечного пункта маршрута;
• NUMER — номер маршрута.
2. Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив TRAFIC, состоящий из 3 элементов типа MARSH;
• вывод на экран информации о маршруте, номер которого введен с клавиатуры;
• если таких маршрутов нет, выдать на дисплей соответствующее сообщение.
*/

#include <iostream>
using namespace std;

class MARSH
{
public:
string BEGST, TERM, NUMER;

MARSH(string b, string t, string n)
: BEGST(b), TERM(t), NUMER(n)
{
}

MARSH() {}

void info() {
cout << "Маршрут №" << NUMER
<< " (" << BEGST << '-'
<< TERM << ')';
}
};

int main()
{
MARSH TRAFFIC[3];
string b, t, n;
for (int i = 0; i < 3; i++) {
cout << "Ввод данных для маршрута " << i << ':' << endl;
cout << "Название начального пункта маршрута: ";
cin >> b;
cout << "Название конечного пункта маршрута: ";
cin >> t;
cout << "Номер маршрута: ";
cin >> n;
cout << endl;
TRAFFIC[i] = MARSH(b, t, n);
}
cout << endl << "Введите номер маршрута: ";
cin >> n;
MARSH m;
for (int i = 0; i < 3; i++) {
m = TRAFFIC[i];
if (m.NUMER == n) {
m.info();
return 0;
}
}
cout << "Нет маршрута с таким номером!" << endl;
return 1;
}

{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
   input: text;
   n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do 
  begin
  read (input, n1);
  inc (sum, n1);
  end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.

{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
  begin
  read (input, ch);
  inc (n);
        if eoln(input) then readln(input);
 end;
close (input);
write ('Символов в файле: ', n);
end.

{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n, i: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
 begin
 read (input, ch);
 inc (n);
       if eoln(input) then
       begin
       readln(input);
       inc (i);
       writeln ('Символов в ', i, ' строке: ', n);
       n:=0;
       end;
end;
close (input);
end.