Question

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

Answer 1

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é

Answer 2

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.