24 tháng 4 2023 lúc 16:17
Các câu hỏi tương tự
program Hello;
uses crt;
var
a: real;
b,c :integer;
begin
clrscr;
writeln (4+5);
read(a);
writeln (4+9);
read(b);
c:=(a+b)
writeln('Ket qua',c);
read(c);
readln;
end.
mọi người cho em hỏi em sai chỗ nào vậy ạ
Mn coi dùm em sai chỗ nào ạ. Bạn em lm sai 1 câu mà ko bt câu nào. Trc 8h45 ạ. Em cần gấp 🙏
giúp em bài này với ạ 
Giúp em làm bài này với ạ
nếu gặp lỗi này thì phải làm sao ạ
Mọi người giải giúp em bài này với ạ
Làm giúp em bài này với ạ, chiều 3h em học rồi. Em cảm ơn rất nhiều 🥲
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ Tìm và sửa lỗi trong chương trình pascal sau: var T, So, D: longint; begin T: 0; D: 0; repeat write(Nhap so: ); readln(So); if T + So 15000 then begin T: T + So; D: Dem + 1; end; until T 15000; write...
Đọc tiếp
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.
Ai cho mình hỏi như vậy là sao vậy ai chỉ mình cách sửa lỗi với ạ mình tắt đi bật lại và restart mà nó vẫn nhé vậy