viết chương trình nhập vào 5 số tự nhiên bất kì.tính tổng 5số tự nhiên nhập vào từ bàn phím đó Giúp em gấp với ạ em cần gấp Em vote 5 sao luôn
2 câu trả lời
Program baitap;
Uses crt;
Var a,b,c,d,e:integer;
Begin
Clrscr;
Write('Nhap vao 5 so tu nhien bat ki:');
Readln(a,b,c,d,e);
Writeln('Tong:',a+b+c+d+e);
Readln
End.
program bai_giai;
uses crt;
var a:array[1..5]of real; i:longint;s:real;
begin
clrscr;
s:=0;
for i:=1 to 5 do
begin
write('nhap so thu ',i,':');readln(a[i]);
s:=s+a[i];
end;
write('s=',s:4:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
