Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу
Получить таблицу температур по Цельсию от 1 до 100 градусов и их эквивалент по шкале Фаренгейта, используя для перевода формулу t=9/5*t(цельсий)+32;
нужно решить задачу с repeat

Ответ оставил Гость

Var a: array[1..100] of real;
   n: integer;
begin
   n := 1;
   repeat
      a[n] := 9 / 5 * n + 32;
      n := n + 1;
   until n = 100;
   {
   n := 1;
   repeat
       writeln(n, , a[n]:5:1);
       n := n + 1;
   until n = 100;
   }
end.