Ý nghĩa của đoạn lệnh trên là tính xem có bao nhiêu số chẵn và bao nhiêu số lẻ trong mảng A

a) Tổng 2 số nguyên dương là 1 số nguyên dương.Đúng

b) Tổng 2 số nguyên âm là 1 số nguyên âm.Đúng

c) Tổng của 1 số nguyên âm và 1 số nguyên dương là 1 số nguyên dương .Sai

Sửa :Tổng của 1 số nguyên âm và 1 số nguyên dương là 1 số nguyên .

d) Tổng của 1 số nguyên dương và 1 số nguyên âm là 1 số nguyên âm. Sai

Sửa Tổng của 1 số nguyên dương và 1 số nguyên âm là 1 số nguyên .

e) Tổng của 2 số đối nhau bằng 0.Đúng

a.đ

b.đ

c.đ : nếu |snd|>|sna|

d.đ : nếu |sna|>|snd|

e.đ

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

write('Tong cac so chan <= ',n,' la ',t);

readln

end.

Câu 2:

Program HOC24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 100 do t:=t+i;

write('Tong 100 so tu nhien dau tien la : ',t);

readln

end.

Program hotrotinhoc;

var i,n: ineger;

s: real;

begin

s:=0;

write('Nhap so nguyen :'); readln(n);

if n<>0 then s:=s+1/n;

while n<>0 do

begin

write('Nhap so nguyen :'); readln(n);

if n<>0 then s:=s+1/n;

end;

write(Tong cac so nghich dao la : ',s);

readln

end.

const fi='gameshow.inp';
fo='gameshow.out';
var f1,f2:text;
a,b:array[1..100]of integer;
n,i,tg,d,s,x,j,vtd,vt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{----------------------xu-ly------------------}
tg:=0;
for i:=1 to n do
tg:=tg+a[i];
for i:=n downto 1 do
if tg mod i=0 then
begin
d:=0;
s:=0;
x:=tg div i;
for j:=1 to n do
begin
s:=s+a[j];
if s=x then
begin
vt:=j;
inc(d);
b[d]:=vt;
s:=0;
end;
end;
if s=0 then
begin
b[d]:=n;
break;
end;
end;
writeln(f2,x);
writeln(f2,d);
for i:=1 to d do
write(f2,b[i],' ');
close(f1);
close(f2);
end.

Sai rồi bạn làm đến đó thì làm tiếp như sau

Tổng các số tự nhiên từ 1->n là:n(n+1):2

=>n(n+1):2=abc.1001

=>n(n+1)=(2.abc).1001

Do abc là số có 3 chữ số mà (2.abc).1001 bằng tích của 2 số tự nhiên liên tiếp=>2.abc và 1001 là 2 số tự nhiên liên tiếp.=>2.abc=1000 hoặc 2.abc=1002

*)2.abc=1000=>abc=500=>tổng n số hạng là:500500

*)2.abc=1002=>abc=501=>tổng n số hạng là:501501

Bài 1:

Program HOC24;

var i,n: integer;

t: longint;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('n='); readln(n);

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,':'); readln(a[i]);

t:=t+a[i];

end;

for i:=1 to n do if i<n then write(a[i],' ') else

if i=n then writeln(a[i]);

write('Tong cac so vua nhap la : ',t,' ;');

if nt(t) then write('Tong la so nguyen to') else write('Tong khong phai la so nguyen to');

readln

end.

Bài 2:

Program HOC24;

var i,j,n: integer;

t: longint;

a: array[1..32000] of integer;

function hh(x:integer):boolean;

var i,s:integer;

begin

s:=0;

hh:=false;

for i:= 1 to x div 2 do

if x mod i = 0 then s:=s+i;

if s = x then hh:=true;

end;

begin

write('Nhap so nguyen : '); readln(n);

if n=0 then

begin

writeln(n);

write('Tong cac so vua nhap la 0 va tong do khong phai so hoan hao');

end

else

begin

a[1]:=n; i:=1;

while n<>0 do

begin

i:=i+1;

write('Nhap so nguyen : '); readln(n);

a[i]:=n;

end;

t:=0;

write('Cac so n vua nhap la : ');

for j:=1 to i do

begin

t:=t+a[j];

write(a[j],' ');

end;

writeln;

write('Tong cac so vua nhap la : ',t,' ;');

if hh(t) then write('Tong nay la so hoan hao') else write('Khong phai so hoan hao');

end;

readln

end.

Bài 1:

uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln('tong cac so nguyen tu 1 toi ',n,' la: ',t);
readln;
end.

Bài 2:

uses crt;
var n,t:longint;
begin
clrscr;
t:=0;
repeat
write('n='); readln(n);
t:=t+n;
until n=0;
writeln('tong cac so nguyen nhap tu ban phim la: ',t);
readln;
end.

Bài 3:

uses crt;
var d,i,t,n,x:longint;
a:array[1..100]of longint;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],x);
t:=t+a[i];
end;
writeln('tong cac chu so cua ',n,' la: ',t);
readln;
end.

Câu 1:

uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
i:= 0;
while i < n do
begin
i:= i + 1;
tong:= tong + i;
end;
write('Tong cac so tu 1 den ',n,'la: ',tong);
readln
end.

Câu 2:

uses crt;
var i,a:integer;
tong:longint;
begin
clrscr;
a:= 1; i:= 1; tong:= 0;
while a <> 0 do
begin
write('Nhap phan tu thu ',i,': ');
readln(a);
i:= i + 1;
tong:= tong + a;
end;
write('Tong cac so = ',tong);
readln
end.

Câu 3:

uses crt;
var n,luu,tong: integer;
begin
clrscr;
write('Nhap so N: ');readln(n);
luu:= n; tong:= n mod 10;
while (n div 10 > 0) do
begin
n:= n div 10;
tong:= tong + (n mod 10);
end;
write('Tong cac chu so cua so ',luu,' la: ',tong);
readln
end.

Bài 1:

uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln('tong cac so nguyen tu 1 toi ',n,' la: ',t);
readln;
end.

Bài 2:

uses crt;
var n,t:longint;
begin
clrscr;
t:=0;
repeat
write('n='); readln(n);
t:=t+n;
until n=0;
writeln('tong cac so nguyen nhap tu ban phim la: ',t);
readln;
end.

Bài 3:

uses crt;
var d,i,t,n,x:longint;
a:array[1..100]of longint;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],x);
t:=t+a[i];
end;
writeln('tong cac chu so cua ',n,' la: ',t);
readln;
end.

chúc bạn học tốt :))

Câu 2 là số có mấy cs vậy bn

Bài 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write('Tong cac so chan tu 1 den ',n,' la: ',s); writeln;
for i:=1 to n do
if (i mod 3=0) and (i mod 5=0) then write(i,' ');
readln
end.

Bài 2:
uses crt;
var n,i,s:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(a[i],' '); writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<>0) then s:=s+a[i];
write('Tong cac so nguyen chan la: ',s);
readln
end.