2 câu trả lời
Program tinhtong;
Uses crt;
Var a,b,c,d,s : real;
Begin
Clrscr;
Write (' nhap so a',a);
Readln(a);
Write (' nhap so b',b);
Readln(b);
Write (' nhap so c',c);
Readln(c);
Write ( ' nhap so d',d);
S:=0;
S:= a+b+c+d;
Write(' tong cua 4 so la',S:2:2);
Readln
End.
program ct;
uses crt;
var i,j,m,n,S:real;
begin clrscr;
writeln('Nhap 4 chu so: '); readln(i,j,m,n);
S:=i+j+m+n;
write('Tong 4 chu so tren la: ',S:4:2);
readln;
end.
Học tốt!
Câu hỏi trong lớp
Xem thêm
