Напечатать таблицу перевода температуры из градусов по шкале цельсия (с) в градусы шкалы фаренгейта (f) для значений от 15ос до 30ос с шагом 1ос. (перевод осуществляется по формуле f=1.8c+32). два варианта с циклами while и repeat – until.

madmiss madmiss    2   12.05.2019 18:02    4

Ответы
mlkalxa78 mlkalxa78  09.06.2020 22:53

'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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика