1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
1. Подключаются библиотеки, задаётся пространство имён standart, объявляется main, устанавливается поддержка русского языка, объявляется дробная переменная "temp", в консоль выводится "Введите произвольное число: ", запрашивается значение переменной temp, выполняется проверка на равенство значения 36.6. Если оно равно, то выводится в консоль "У вас нормальная температура тела", иначе "У вас повышенная температура", возвращается код ошибки ноль.
2. Ошибки:
Отсутствуют фигурные скобки в функции main (т. е. { })
Логическая ошибка: температура в случае, если она не равна 36.6 может быть не повышенной, а пониженной.
