Komentar

Jumat, 05 Juli 2013

Nilai Kalimat Matematika

Posted by M Habibie 19.52, under | No comments





var
A, B : integer;
sp, op : char;




begin
 readln(A, sp, op, sp, B);
 case op of
 '+' begin writeln(A + B); end;
 '-' begin writeln(A - B); end;
 '*' begin writeln(A * B); end;
 '>' if (A > B) then writeln('benar'else writeln('salah');
 '<' if (A < B) then writeln('benar'else writeln('salah');
 '=' if (A = B) then writeln('benar'else writeln('salah');
 end;
end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts