Napiši program pa vidi! Obzirom da se paskal uèi 4 godine, valjda možeš bar nešto da napišeš?
Evo kako sam ja uradio 1. i 5. zadatak:
Code:
var i,j,k,l,m:integer;
begin
readln(i,j,k);
readln(l,m);
writeln('i=',i,' j=',j,' k=',k);
writeln('l=',l,' m=',m);
readln;
end.
Sad mi nisu jasni tvoji ulazni podaci. Ja sam stavio 1[]23[]4[]56[enter]12[]3[]33[enter]. Onaj treæi red ne može da se upiše jer je samo 2 readln komande. Izlaz je:
i= 1 j= 23 k= 4
l= 56 m= 12
Code:
var i,j:integer;
x,y:real;
z:char;
begin
readln(z,x,y);
readln(i,j);
writeln('z=',z,' x=',x,' y=',y);
writeln('i=',i,' j=',j);
readln;
end.
Izlaz je:
z= - x= 1.1000000000E+01 y= 3.4000000000E+00
i= -11 j= 3
Bolje džaba ležat nego džaba radit.