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.
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Ủa bạn ngay chỗ var n i: integer có thể thay thế bằng longint ko
Mày thử giải đê :)) Help đi :)) nếu đc còn ko đc thì xem lại bạn nhóe :)) Minh
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.
program tongchan;
uses crt;
var i,n,s:integer;
a:array[1..50] of integer;
Begin
Write('n=');readln(n);
for i:=1 to n do
Write('a[,'i',]=');readln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
if s=0 then write('Trong mang ko co so chan') else write('Tong cac so chan la:,s');
readln;
end.
program Min;
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so le nho hon hoac bang ',n,'la :');
for i:=1 to n do if i mod 2 = 1 then write(i:4);
readln
end.
bạn tham khảo
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
program TinhTongSoTuNhienLe;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
sum := 0;
for i := 1 to N do
begin
if i mod 2 = 1 then // Kiểm tra số lẻ
sum := sum + i; // Cộng dồn vào tổng
end;
writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if sqrt(i)=trunc(sqrt(i)) then t:=t+i;
writeln(t);
readln;
end.
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.