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.
Bài 2:
Program hotrotinhoc;
var i: byte;
begin
write('5 so tu nhien dau tien la : ');
for i:=0 to 4 do write(i,' ');
readln
end.
Bài 3:
Program hotrotinhoc;
var n,i: integer;
s: real;
begin
write('N='); readln(n);
i:=0;
while i<n do
begin
inc(i);
s:=s+1/i;
end;
write('S=',s:1:2);
readln
end.
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)
Dòng 4: Sai -> sửa: x: integer;
Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)
Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)
Dòng 11: Sai -> Sửa: end;
Các dòng còn lại đều đúng và không có vấn đề để sửa.
Bài chính xác như vầy, em tự sửa lại trên giấy nhé!
Program baiso2;
Uses crt;
Var x,y:integer;
Begin
x:=100;
y:=0;
While x<1000 do
Begin
y:=y+x;
x:=x+10;
End;
Readln;
End.
Câu lệnh dạng thiếu chỉ thực hiện khi điều kiện của nó được thỏa mãn, còn nếu không thì nó sẽ bỏ qua. Câu lệnh dạng đủ đầy đủ hơn nếu thỏa mãn thì nó sẽ thực hiện câu lệnh 1, còn không thì sẽ thực hiện câu lệnh 2 
Ngắn gọn :))
* Giống:
+ Đều xét ĐK để chương trình có thực hiện câu lệnh hay không
+ Đều có ĐK cho chương trình xét
* Khác
+ Câu lệnh đủ có thêm " else ( câu lệnh 2)" còn thiếu thì không
+ Câu lệnh đủ sẽ thực hiện câu lệnh 2 nếu ĐK không thõa mãn, còn câu lệnh dạng thiếu thì ngược lại
uses crt;
var a:array[1..100]of real;
n,i,t:integer;
begin
clrscr;
write('Nhap so hoc sinh='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem hoc ki mon Tin cho hoc sinh thu ',i,'='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
writeln('Diem cua hoc sinh thu ',i,'=',a[i]:4:2);
readln;
end.
mk trân thành cảm ơn ạ!
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
uses crt;
var a:array[1..42] of real;
i,n,dem:integer;
nn:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
for i:=1 to n do
if nn>a[i] then nn:=a[i];
for i:=1 to n do
if nn=a[i] then write(i:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
thôi mình chịu
ai cx vậy mà bn
đăng kí tk giáo viên là chat thoải mái mà bạn
cần giúp ko
vào nhóm tôi
bn tạo 1 acc nhé
Vô với @Tralalero tralala
ko vì t dùng tài khoản nhà trường mà.
mượn chi vậy 🙏
đồng ý kb ik r mik có bn 1 acc
fake à
Tự tạo acc đi