var
S: String;
I: Byte;
begin
ClrScr;
WriteLn('Unesi rec: ');
ReadLn(S);
WriteLn('Rec od nazad ide ovako: ');
for I := 1 to Length(S) do
Write(S[I]);
ReadKey;
end.
Upropastio si mi ideju... da sam napisao potpuno ispravan kod on bi ga copy+paste u editor, pokrenuo i kazao WOW, OVO RADI, ali ovako bi pokrenuo i kad bi video da ne radi kako treba pogledao bi malo kod, potrazio gresku i na kraju je sam ispravio. Tako ce bolje da uci... sad si mu ti vec ispravio program...
Upropastio si mi ideju... da sam napisao potpuno ispravan kod on bi ga copy+paste u editor, pokrenuo i kazao WOW, OVO RADI, ali ovako bi pokrenuo i kad bi video da ne radi kako treba pogledao bi malo kod, potrazio gresku i na kraju je sam ispravio. Tako ce bolje da uci... sad si mu ti vec ispravio program...
hm, vise vjerujem da bi se radi te "greske" tolko izivcirao te bi prestao programirat
Citat:
guslac:
Code:
uses
crt;
var
a,b,zbir: real;
begin
write('Unesi dva broja: ');
read(a,b);
zbir := a+b;
write('Zbir je: ',z);
end.