Viết chương trình Pascal nhập vào 3 số bất kỳ rồi In ra Tích của 3 số đó. Mình viết vậy đúng không ? program baicogiao; uses crt; var x,y,z : integer; begin clrscr; write('nhap vao x = '); readln(x); write('nhap vao y= ');readln(y); write('nhap vao z='); readln(z); writeln('tich cua z, y va z la : ' ); readln; writeln('x*y*z=',x*y*z); readln end. end. Nếu sai thì sửa với nha

2 câu trả lời

program baicogiao;
uses crt;
var x,y,z, T : real;
begin
clrscr;
write('nhap vao x = ');   readln(x);
write('nhap vao y= ');  readln(y);
write('nhap vao z=');   readln(z);

T:=x*y*z
writeln('Tich cua 3 so la ' ); readln(T);
writeln('x*y*z=',x*y*z);
readln
end.

Bài làm của bạn đúng hết nha nhưng chỉ bị dư 1 câu lệnh end. ở dưới cùng thôi

_____________________________________________________

Nhưng mình có 1 chút góp ý như sau:

Hai câu lệnh này của bạn có 1 chút hơi quần 1 xíu, sẽ khiến cô giáo chấm bài hơi lag đấy!

          writeln('tich cua z, y va z la : ' ); readln;

          writeln('x*y*z=',x*y*z);

Thay vào đó, sau khi bạn in ra màn hình xâu 'tich cua z, y va z la : ' thì bạn in thẳng luôn kết quả ra luôn

              => Writeln('tich cua z, y va z la : ',x*y*z );

Vì đấy chỉ là ý kiến cá nhân của mình thôi, nếu như bạn vẫn muốn làm cách cũ của bạn thì bạn cứ làm nhé

Câu hỏi trong lớp Xem thêm