Pascal ABC. Pascal ABC. . Pascal ABC 1. . F

  CyberForum.ru > > Pascal ( ) > Pascal ABC E-mail ?
(C) (F) 15 C 30 C 1 C. : F=1.8*C+32.
Pascal ABC. Pascal ABC. . Pascal ABC 1. . F(x) h. , , .. Pascal ABC 2. ..
1 2 3 4 5 6 7 8 9 10 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 .
1 2 3 4 5 6 7 8 9 10 11 12 13   #include<iostream> using namespace std ; int main ( ) {     for ( double i = 15 ; i <= 30 ; ++ i )     {             cout << october 2012 calendar "Celcium: " << i << "-->Farengeight: " << 1.8 * i + 32 << endl ;     }     system ( "pause" ) ; }    
1 2 3 4 5 6 7 8 9 10 11 12 13   #include<iostream> using namespace std ; int main ( ) {     for ( double i = 15 ; i <= 30 ; ++ i )     {             cout << "Celcium: " << i << "-->Farengeight: " << 1.8 * i + 32 << endl ;     }     system ( "pause" ) ; }     CyberForum.ru > > Pascal october 2012 calendar ( ) > Pascal ABC :-)
Turbo Pascal . , , 1. 0 30 t( )=9/5*t( )+32. . 2. ... aristov-96 Turbo Pascal 0 0 100 {t}_{1}=9/5{t}_{c}+32 masa1 Turbo Pascal ( ) 1. ( ) (F) 15 30 1 ( F=1,8C+32) 2. 1 10 ... Angel-dm Delphi . 0 100 Pascal Delphi. : . 0 100 , tF=1.8tC+32. Delphi ListBox, ... TP7 Pascal ( ) 1 100 , , 6 27. - !:help::rtfm: Uses crt; Var:z,l,i,a,b,c,d:integer; Begin ClrScr; For i:=1000 to 9999 do begin If (i... DAMIR