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âu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Câu 1: C
Câu 2: A
Câu 3: B
Câu 4: A
Câu 5: C
Câu 6: A
Câu 7: C
Câu 9: D
Câu 10: A
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.
Câu 2:
a) var a:array[1..5]of real;
b) var a:array[1..50]of integer;
c) readln(a[2]);
Câu 1:
Câu 2:
a) A:array[1..5] of Real;
b) A[5]:=8;
c) A:array[1..50] of Integer;
d) Readln(A[2]);
1
a/ For i:=1,5 to 10.5 do s:=s+i;
=> For i:=1 to 10 do s:=s+i;
b/ Var X : array [100..1] of integer;
=>Var X : array [100..1] of integer;
c/ X:=1 ; while X:=10 do X:=X+5;
=>X:=1 ; while X=10 do X:=X+5;
d/For i:=1 to n do begin s:=s+i ; i:=i-1;
=>For i:=1 to n do begin s:=s+i ; i:=i-1;end;
2
a) X:ARRAY[1..50]OF INTEGER;
B) A[9]:=5;
C)DIEMTIN:ARRAY[1..100] OF REAL;
D) WRITE('DIEM TIN[5]:');READLN(DIEMTIN[5]);