Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End
Những câu hỏi liên quan
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
Đúng 0
Bình luận (0)
Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a='); readln(a)
Write('nhap b='); readln(b);
Tich:a*b
Writeln('tich cua a va b la:, Tich: 8:20);
Readln;
end;
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
Đúng 0
Bình luận (0)
program Tich;
uses crt;
var a,b,Tich : integer;
begin
clrscr;
Write('Nhap a ='); readln(a);
Write('Nhap b='); readln(b);
Tich := a*b;
Writeln('Tich cua a va b la: ',Tich:8:20);
Readln;
end.
Đúng 0
Bình luận (0)
Câu 41. Trong chương trình Pascal nếu dùng lệnh xóa màn hình ta có khai báo nào sau đây?
A. Use Crt; B. Var x,y : integer;
C. Uses Crt; D. Không cần khai báo
Từ nào là các từ khóa trong chương trình:
A. Begin, Program, Write, Uses, Read
B. Program, Var, Begin, Uses, Const, End
C. End, Read, Var, Const, program
D. Program, Begin, End, Uses, integer
Từ nào là các từ khóa trong chương trình:
A. Begin, Program, Write, Uses, Read
B. Program, Var, Begin, Uses, Const, End
C. End, Read, Var, Const, program
D. Program, Begin, End, Uses, integer
Xem thêm câu trả lời
program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.
cho em hỏi chương trình trên đúng ko ạ?
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
28 tháng 12 2020 lúc 12:17
Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
if m > n then writeln(m lon hon n);
else if m < n writeln(m nho hon n);
else writeln('m bang n');
readln
End.
P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
Đúng 3
Bình luận (0)
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
