viết phương trình nhập và tính tổng 4 số a, b, c, d sau đó xuất kết quả ra màn hình
2 câu trả lời
uses crt;
var a,b,c,d,S:integer;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
write('nhap d: ');readln(d);
S:= a+b+c+d;
writeln('Tong a b c d la: ',S);
readln;
end.
program bai_giai;
uses crt;
var a,b,c,d:longint;
begin
clrscr;
write('nhap lan luot a,b,c,d');readln(a,b,c,d);
write('tong cua bon so a,b,c,d la:',a+b+c+d);
readln;
end.
Câu hỏi trong lớp
Xem thêm
