Помогите решить задачу Получить таблицу температур по Цельсию от 1 до 100 градусов и их...

Question

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

Answer 1

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.

Comments

Если убрать фигурные скобки, то программа ещё и напечатает перевод из Цельсия в Фаренгейта