Составьте программу в паскаль с while. стакан кипятка (100 °с) остыл за первую минуту на а градусов, а каждую последующую минуту остывал на 15% меньше, чем в предыдущую. через сколько минут температура воды станет ниже nо с?

250

261

Посмотреть ответы 2

Ответы на вопрос:

Daniela04102005

Информатика

4,8(24 оценок)

Var a, gradus, minut, n: real; begin writeln('введите a градусов'); readln(a); writeln('до какой температуры остужать: '); readln(n); gradus: =100-a; minut: =1; while (gradus> n) do begin a: =a*(1-0.15); gradus: =gradus-a; minut: =minut+1; end; writeln('кипяток остынет до ',n,' градусов через ', minut, ' минут'); readln(); end.

trollotrollovit

Информатика

4,6(30 оценок)

Var w,y,x,z: real begin writeln('vvedite chislo 1: '); readln(x); writeln('vvedite chislo 2: '); readln(y); writeln('vvedite chislo 3: '); readln(z); w: = (x+y+z)/3; writeln('w = ',w) readlnl; end; могу быть ошибки если что. и это не сразу готовая программа это только середина, которая выполняет расчеты..