1. 

   Bademu New Member

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

    

   Bademu, 31 янв 2010

   #1
2. 

   1MAZ1 New Member

   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.

    

   1MAZ1, 31 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня