Viết chương trình nhập vào phép tính và 2 số a,b((xâu)tối đa 255 chữ số);
VD Phép:-
a=123
b=120
3
a,b là xâu!!!!
Không copy
Viết chương trình nhập vào phép tính và 2 số a,b((xâu)tối đa 255 chữ số);
VD Phép:-
a=123
b=120
3
a,b là xâu!!!!
Không copy
var a,b : string;
x,y : int64; m,n : longint;
begin
write(‘Nhap a:’); readln(a);
write(‘Nhap b:’); readln(b);
val(a,x,m); val(b,y,n);
write(‘Phep tru ‘,a,’ cho ‘,b,’ la :’, x-y);
readln
end.
program oken;
uses crt;
var a,b: string;
c: char;
x,y,code: longint;
begin
clrscr;
write(‘Nhap xau a(phai la chu so): ‘); readln(a);
write(‘Nhap xau b(phai la chu so): ‘); readln(b);
write(‘Nhap phep tinh(dung dau): ‘); readln(c);
val(a,x,code); val(b,y,code);
case c of
‘-‘: writeln(a,’-‘,b,’= ‘,x-y);
‘+’: writeln(a,’+’,b,’= ‘,x+y);
‘/’: writeln(a,’/’,b,’= ‘,x/y:0:3);
‘*’: writeln(a,’*’,b,’= ‘,x*y);
end;
readln;
end.