S
SkyGameYT
Cấp bậc
Điểm
0
Cảm ơn
0
Đã hỏi
Đã trả lời
Câu trả lời của bạn: 20:01 11/05/2021
uses Crt;
var N,i,S:Integer;
A:array[1..100] of Integer;
Begin
Clrscr;
Write('Ban can nhap so phan tu la : ');
readln(N);
For i:=1 to N do
Begin
Write('Nhap A[',i,']=');
Readln(A[i]);
End;
Writeln;
For i:=1 to N do
If A[i] mod 2=0 then
S:=S+A[i];
Writeln('Tong cac phan tu chan trong mang la ',S,'.');
Readln
End.
var N,i,S:Integer;
A:array[1..100] of Integer;
Begin
Clrscr;
Write('Ban can nhap so phan tu la : ');
readln(N);
For i:=1 to N do
Begin
Write('Nhap A[',i,']=');
Readln(A[i]);
End;
Writeln;
For i:=1 to N do
If A[i] mod 2=0 then
S:=S+A[i];
Writeln('Tong cac phan tu chan trong mang la ',S,'.');
Readln
End.
Câu hỏi:
Câu trả lời của bạn: 19:06 08/05/2021
B
Câu trả lời của bạn: 19:18 21/04/2021
Từ 18h-22h
Câu trả lời của bạn: 19:17 21/04/2021
Ý nghĩa:
Điện áp định mức:220V
Công suất:40W
Điện áp định mức:220V
Công suất:40W
Câu trả lời của bạn: 19:10 21/04/2021
Uses Crt;
Var N,i,S:Longint;
begin
clrscr;
write('Ban can nhap so N=');
readln(N);
for i:=1 to N do
S:=S+i;
writeln('Tong cac so duong tu 1 den ',N,' la ',S,'.');
readln
end.
Var N,i,S:Longint;
begin
clrscr;
write('Ban can nhap so N=');
readln(N);
for i:=1 to N do
S:=S+i;
writeln('Tong cac so duong tu 1 den ',N,' la ',S,'.');
readln
end.
Câu trả lời của bạn: 19:00 21/04/2021
Bài j nữa
Câu trả lời của bạn: 18:59 21/04/2021
uses Crt;
var N,i,S:Longint;
begin
clrscr;
write('Ban can nhap so N=');
readln(N);
i:=1;
while i<=N do
begin
S:=S+i;
i:=i+1;
end;
writeln('Tong cua ',N,' so tu nhien dau tien la ',S,'.');
readln
end.
var N,i,S:Longint;
begin
clrscr;
write('Ban can nhap so N=');
readln(N);
i:=1;
while i<=N do
begin
S:=S+i;
i:=i+1;
end;
writeln('Tong cua ',N,' so tu nhien dau tien la ',S,'.');
readln
end.
Câu trả lời của bạn: 18:52 21/04/2021
program BaiGiai;
uses crt;
var N,i,S,D:Longint;
A:array[1..143] of Longint;
begin
clrscr;
write('Ban can nhap N=');
Readln(N);
writeln('Hay nhap phan tu cho mang:');
{In va nhap pt}
for i:=1 to N do
begin
write('Nhap A[',i,']=');
readln(A[i]);
end;
writeln;
writeln('In phan tu:');
for i:=1 to N do
write(A[i],' ');
writeln; writeln;
{Tinh tong}
for i:=1 to N do
S:=S+A[i];
writeln('Tong cac phan tu cua mang la ',S,'.');
writeln;
{Dem so duong}
for i:=1 to N do
if A[i]>=0 then D:=D+1;
writeln('Co tat ca la ',D,' phan tu la so duong.');
readln;
end.
uses crt;
var N,i,S,D:Longint;
A:array[1..143] of Longint;
begin
clrscr;
write('Ban can nhap N=');
Readln(N);
writeln('Hay nhap phan tu cho mang:');
{In va nhap pt}
for i:=1 to N do
begin
write('Nhap A[',i,']=');
readln(A[i]);
end;
writeln;
writeln('In phan tu:');
for i:=1 to N do
write(A[i],' ');
writeln; writeln;
{Tinh tong}
for i:=1 to N do
S:=S+A[i];
writeln('Tong cac phan tu cua mang la ',S,'.');
writeln;
{Dem so duong}
for i:=1 to N do
if A[i]>=0 then D:=D+1;
writeln('Co tat ca la ',D,' phan tu la so duong.');
readln;
end.
Câu trả lời của bạn: 18:43 21/04/2021
Ukm
Câu trả lời của bạn: 18:42 21/04/2021
KQ số lớn quá!
