Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
readln ;
End.
Câu 1:
*Dạng 1: Dạng thiếu
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b);
if b>a then writeln(b,' lon hon ',a);
if a=b then writeln('hai so bang nhau');
readln;
end.
*Dạng 2: Dạng đủ
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln('hai so bang nhau');
readln;
end.
Câu 2:
-Lỗi 1: var a,b,s=real;
Sửa lại: var a,b,s:real;
-Lỗi 2: write('nhap a='),
Sửa lại: write('nhap a=');
-Lỗi 3: readln('a');
Sửa lại: readln(a);
-Lỗi 4: Write(nhap b='),
Sửa lại: write('nhap b=');
-Lỗi 5: readln(b');
Sửa lại: readln(b);
-Lỗi 6: write('s=s);
sửa lại: write('s=',s);
Câu 1:
*Dạng 1: Dạng thiếu
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b);
if b>a then writeln(b,' lon hon ',a);
if a=b then writeln('hai so bang nhau');
readln;
end.
*Dạng 2: Dạng đủ
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln('hai so bang nhau');
readln;
end.
Câu 2:
-Lỗi 1: var a,b,s=real;
Sửa lại: var a,b,s:real;
-Lỗi 2: write('nhap a='),
Sửa lại: write('nhap a=');
-Lỗi 3: readln('a');
Sửa lại: readln(a);
-Lỗi 4: Write(nhap b='),
Sửa lại: write('nhap b=');
-Lỗi 5: readln(b');
Sửa lại: readln(b);
-Lỗi 6: write('s=s);
sửa lại: write('s=',s);
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
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.
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Đoạn chương trình thực hiện công việc nếu số học sinh trong lớp bé hơn 1 hoặc lớn hơn 50 thì nhập lại số học sinh. Số học sinh thõa mãn khi nằm trong khoảng 1 đến 50 học sinh trong một lớp.