Помогите решить задачу Получить таблицу температур по Цельсию от 1 до 100 градусов и их эквивалент по шкале Фаренгейта, используя для перевода формулу t=9/5*t(цельсий)+32; нужно решить задачу с repeat
Помогите решить задачу
Получить таблицу температур по Цельсию от 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.
Не нашли ответ?
Похожие вопросы