Làm quen với giải phẫu cơ thể người bằng phần mềm Anatomy

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Iori Yagami

Ai giúp mk giải bài nay được không

Đề: Tính tổng 5 số tự nhiên a,b,c,d,e với ạ,b,c,d,e đc nhập từ bàng phím

Phần mềm Free pascal

Program :Bt1

Var

Begin

Writeln(); readln ();

S:=a+b+c+d+e

Writeln;

End.

Ai làm giúp mk, mk cảm ơn

@Nk>↑@
23 tháng 11 2018 lúc 11:51

Program Bt1;

Var a, b, c, d: Byte;

Begin

Clrscr;

Write('Nhap so a='); readln(a);

Write('Nhap so b='); readln(b);

Write('Nhap so c='); readln(c);

Write('Nhap so d='); readln(d);

S:=a+b+c+d+e;

Writeln(Tong 5 so tu nhien tren la:'); readln(S)

End.

Program không có dấu : đâu nhé haha

Trương Trường Giang
23 tháng 11 2018 lúc 18:15

Program Bt1

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

Begin

Clrscr;

Writeln('Nhap gia tri so tu nhien a '); readln (a);

Writeln('Nhap gia tri so tu nhien b '); readln (b);

Writeln('Nhap gia tri so tu nhien c '); readln (c);

Writeln('Nhap gia tri so tu nhien d '); readln (d);

Writeln('Nhap gia tri so tu nhien e '); readln (e);

S:=a+b+c+d+e;

Writeln('Tong 5 so tu nhien a, b, c, d, e = ', readln(S);

Readln

End.

Xin lỗi nhé, máy không Tab được, khi đánh vào phần mềm bạn nhớ Tab từ sau chữ begin.


Các câu hỏi tương tự
No ri do
Xem chi tiết
HUYỀN
Xem chi tiết
ĐÀO THU PHƯƠNG 7A NT
Xem chi tiết
khong có
Xem chi tiết
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết