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.
a) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy
Bạn viết rõ lại đề bài là của một lượng số bao nhiêu hay là số lượng số được nhập từ máy tính
var tam,a,b,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
if a < b then
begin
tam:=a;
a:=b;
b:=tam;
end;
for i:=a to b do
if sqrt(i) = trunc(sqrt(i)) then write(i:10);
readln;
End.
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 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
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
uses crt;
var n,i,t1,t2,t3:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if i mod 2=0 then t1:=t1+i;
if i mod 2=1 then t2:=t2+i;
if i mod 3=0 then t3:=t3+i;
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
writeln('Tong cac so chia het cho 3 la: ',t3);
readln;
end.
tui mới thi xong cách đây 1 tiếng nek
Tuần sau mình mới thi
tuii cũng thi bà ơi🤧
tuii cũng thi bà ơi🤧
tuii cũng thi bà ơi🤧
tuii cũng thi bà ơi🤧
Hết cứu, lo ôn bài ik
Thứ ba tuần sau t thi r cx áp lực lắm lượng kiến thức nhiều
Trong tuần này và tuần sau thi