Напечатать таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы шкалы Фаренгейта (F) для значений от 15оС до 30оС с шагом 1оС. (перевод осуществляется по формуле F=1.8C+32). Два варианта с циклами WHILE и REPEAT – UNTIL.

Ответ:

'Pascal'

Объяснение:

uses crt;

var F:real;

C:integer;

  Begin

  For C:=15 to 30 do

     Begin

     F:=1.8*C+32;

  Writeln(C,' градусов Цельсия = ', F, ' градусов по Фаренгейту');

  End;

End.