Question

Viết chương trình nhập vào 2 dãy kí tự số a và b (a,b<=255 kí tự) đổi 2 dãy đó ra số nguyên rồi tính tổng 2 số đó

Answer 1

uses crt;
var a,b:string;
x,y:int64;
code,code1:integer;
begin
clrscr;
write('nhap day ki tu so a: '); readln(a);
write('nhap day ki tu so b: '); readln(b);
val(a,x,code);
val(b,y,code1);
writeln('tong cua hai day ki tu la: ',x+y);
readln;
end.

Answer 2

uses crt;
var a,b:string;
x,y:int64;
code,code1:integer;
begin
clrscr;
write('nhap day ki tu so a: '); readln(a);
write('nhap day ki tu so b: '); readln(b);
val(a,x,code);
val(b,y,code1);
writeln('tong cua hai day ki tu la: ',x+y);
readln;
end.