Viết sử dụng chương trình con thủ tục, tính tổng của 5 cặp số bất kì
2 câu trả lời
Program BTH;
uses Crt;
var a,b,c,d,e,f:longint;
procedure ST;
Begin
f:=a+b+c+d+e;
end;
Begin
Clrscr;
Write('Nhap so thu 1: ');readln(a);
Write('Nhap so thu 2: ');readln(b);
Write('Nhap so thu 3: ');readln(c);
Write('Nhap so thu 4: ');readln(d);
Write('Nhap so thu 5: ');readln(e);
ST;
Writeln('Tong 5 so tren la: ',f);
readln;
End.
program justin_bieber;
uses crt;
var a,b,c,d,e,S: real;
begin;
clrscr;
writeln('nhap 5 so bat ki ma ban chon: ');
readln(a,b,c,d,e);
S=a+b+c+d+e;
writeln('tong 5 so bat ki ma ban vua nhap la: ',S);
readln;
end.
Câu hỏi trong lớp
Xem thêm
