'Pascal'
Объяснение:
uses crt;
var F:real;
C:integer;
Begin
For C:=15 to 30 do
F:=1.8*C+32;
Writeln(C,' градусов Цельсия = ', F, ' градусов по Фаренгейту');
End;
End.
'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.