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 » |
W trosce o komfort korzystania z naszego serwisu chcemy dostarczać Ci coraz lepsze usługi. By móc to robić prosimy, abyś wyraził zgodę na dopasowanie treści marketingowych do Twoich zachowań w serwisie. Zgoda ta pozwoli nam częściowo finansować rozwój świadczonych usług.
Pamiętaj, że dbamy o Twoją prywatność. Nie zwiększamy zakresu naszych uprawnień bez Twojej zgody. Zadbamy również o bezpieczeństwo Twoich danych. Wyrażoną zgodę możesz cofnąć w każdej chwili.