K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
6 tháng 4 2021
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
KV
13 tháng 4 2023
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.
22 tháng 4 2023
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.
26 tháng 4 2023
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
14 tháng 7 2020
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.
giúp j cơ