165
144
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
193
73
uses crt;
var n,i,tong:integer;
a:array[1..100] of integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']');
readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=1 then tong:=tong+a[i];
writeln('Tong cac so le tu 1 den n la:',tong);
tong:=0;
for i:=1 to n do
if a[i] mod 3=0 then
tong:=tong+a[i];
write('Tong cac so chia het cho 3 tu 1 den n la:',tong);
readln
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
1.
program phuongt;
uses crt;
var s, i, n: integer;
begin
clrscr;
write('Nhap n (n<=100) = '); readln(n);
if n>100 then write('Nhap sai') else
begin
s:=0;
for i:=1 to n do s:=s+i*i;
write('S = ', s);
end;
readln
end.
2.
program phuongt;
uses crt;
var p, i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
p:=0;
for i:=1 to n do p:=p+1/i;
write('P = ', p);
readln
end.
3.
program phuongt;
uses crt;
var n, r, i, j: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
r:=0;
for i:=1 to n do
for j:=2 to n+1 do r:=r+i*j;
write('R = ', r);
readln
end.
4.
program phuongt;
uses crt;
var i, s, c, n, j: integer;
begin
clrscr;
write('Nhap n nguyen duong = '); readln(n);
if n<0 then write('Nhap sai') else
begin
s:=0; c:=0;
for i:=1 to n do
begin
if i mod 2 = 1 then s:=s+i;
if i mod 3 = 0 then c:=c+i;
end;
writeln('S = ', s);
write('C = ', c);
end;
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
165
13
144
giúp mk bài 1,2,3 với . 1 trong 3 cũng đc
193
3493
73
bạn đặt câu hỏi tiếp ik
165
13
144
oke