Question

Напечатать перевод температуры из градусов по шкале Цельсия (С) в
градусы по шкале Фаренгейта (F) для значений температуры от 0
0С до 400С с
шагом 5
0С. Формула перевода F=1,8С+32.

Паскаль.Циклы с условием 

Answer 1

var

  C:integer;

begin

  C := 0;

  while C <= 400 do

  begin

     writeln('C = ', C, ';    F = ', 1.8 * C + 32);

     C := C + 5;

  end;

  readln;

end.