Pascal zadatak if pomoc
zadatak glasi unjeti 2 trocirena broja pa izracunati sume cifara(znam) i provjeriti koja je suma veca pa ispiati je:
ja napisem:program testiranjebroja;
(primer bez provjeravanja veceg)
program trocifrenbzvz;
var x,y,a,b,c,d,e,f,s,t:integer;
begin
writeln('unesite dva trocifrena broja');
read(x,y);
if(x>99)and(y>99)and(x<1000)and(y<1000)then
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 100 mod 10;
d:=y div 100;
e:=y mod 100 div 10;
f:=y mod 100 mod 10 ;
s:= a+b+c;
t:=d+e+f;
else writeln('greska!');
readln;
readln;
end.
OVDJE JE BEZ PROVJERAVNJA VRIJEDNOSTI , ALI IMA NEKA GRESKA KOD ELSE MOZE KO POMOCI.
Poruka je uređivana zadnji put sri 24.10.2012 18:35 (Aleksije).
