даю 50 баллов. помогите решить на фото. Безотлагательно буду признательна.

Даю 50 баллов. помогите решить на фото. Безотлагательно буду благодарна.

Задать свой вопрос
Алиса Кузетенко
Какая страничка ?
1 ответ
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (Q,m):=(420.0,0.12);
  var dT:=ReadArrReal('Введите 6 значений температуры: ',6);
  Writeln(' dT   Уд.теплоемкость');
  for var i:=0 to 5 do begin
    Writeln(dT[i]:3,Q/(m*dT[i]):15:3)
    end
end.

Пример во вложении
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт