Viết chương trình nhập vào 4 số tính tổng 4 số đó

2 câu trả lời

uses crt;
var a,b,c,d : real;
begin
write('Nhap 4 so :');
readln(a,b,c,d);
write('Tong 4 so la :',a+b+c+d:3:0);
readln
end.

Program tinh_tong;

Uses crt;

Var a,b,c,d,S: integer;

Begin 

Writeln ('nhap cac so a,b,c,d:'); 

Readln (a,b,c,d);

S:=a+b+c+d;

Writeln ('Tong cua 4 so tren la:',S);

Readln

End.

Câu hỏi trong lớp Xem thêm
4 lượt xem
2 đáp án
2 giờ trước
3 lượt xem
2 đáp án
2 giờ trước