|
Turbo Pascal g 7.0 według Andrzeja Marciniaka OPOWIASTKI Z ŻYCIA "NIEDZIELNEGO PATRIOTY"
program faktóra; var liczba^ARRAY of [milion,tysięcy,set,dziesiat,setnelnych=groszy]=liczba liczba=string; {początek procedury zamieiającej cyfre na polski} procedure słownie:=string{ var begin end; {zakończenie proceury} begin clrscr; writeln('POdaj liczbe')){przykladowo liczba=123milony456tysiecy789 i 12setnych=123456789,12} readln(liczba);{ lenght(liczba)=11} repeat begin a:=milion:=123; b:=tysiecy:=456; c:=set:= (...) Zobacz cały wpis na blogu » |
