Uses crt;
Var x,y:integer;
Begin
Readln(x);
Readln(y);
Writeln("...(nhập tên, lớp bạn vào nhé)");
Writeln(x - y);
Readln
End.
Đúng 0
Bình luận (1)
Các câu hỏi tương tự
Giúp em với mn chương trình Pascal ạ 
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.
Mn giúp em vs ạ 😢
Mn ơi giúp em với ạ :((
Viết chương trình nhập vào ba số nguyên mũ bình phương từ bàn phím. In ra màn hình trung bình cộng của ba số đó
Viết chương trình nhập vào mảng a gồm N phần tử kiểu số nguyên. In ra dãy số vừa nhập, in ra dãy số theo thứ tự tăng dần.
Giúp em với mn
Mn giải giúp em câu 31 đc ko ạ
Hãy. Nêu cú pháp và cách thực hiện của câu lệnh lặp for ..to..đó và while..đó trong ngôn ngữ pascal( mn chị em vs ạ mai em thì rùi 🥺 ai giúp em thì em cảm ơn ạ)
Xem chi tiết
Theo em ngôn ngữ python có giúp ích gì cho đời sống và học tập không? Đặc biệt là trong tình hình dịch này nếu em thành thạo ngôn ngữ lập trình Python thì em sẽ làm gì có ích cho cuộc chiến chống dịch bệnh nguy hiểm này ?
e gấp lắm mn ai bt giải giúp em