D

A mới đúng nhé bạn

in ra thì phải write(a[i]:5) mới đúng

D là nhập rồi nhé bạn

bạn có nhập sai ct ko chứ làm sao ct chạy nếu như chưa nhập a[m] với a[j] là gì

giả sử nếu như a[m] và a[j] đã được nhập hết thì câu trả lời đúng là D

C

c

C

Vì ban đầu Arr[1]=1; arr[2]=2;

nên theo lệnh

tmp:=Arr[1]; {tmp=1}

arr[1]:=arr[2]; {arr[1]=2, vì arr[2] =2}

arr[2]:=tmp; {arr[2]=1 vì tmp=1}

=> arr[1]=2; arr[2]=1

bài 1:

uses crt;

var i,t,x:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

begin

x:=sqr(i);

t:=t+x;

end;

writeln('gia tri cua bieu thuc P=1^2+2^2+3^2+4^2+5^2+...+10^2 la: ',t);

readln;

end.

bài 1:
P= 1+ 2^2+ 3^2 +..... +10^2

Program viet_chuong_trinh;

uses crt;

var

i,n,T:integer;

begin

clrscr;

writeln('Moi nhap n = '); readln(n);

T:=1;

for i:=1 to n do T:=T*i;

write(T); readln;

end.

uses crt;

var n,i,t:LongInt;

begin

clrscr;

write('nhap n:');readln(n);

clrscr;

t:=1;

for i:=2 to n do t:=t*n;

write('t=',t);

readln;

end.

a.

var S,i,n: integer;

begin

writeln ('Nhap so nguyen duong n'); readln(n);

repeat

writeln ('nhap lai'); readln(n);

until (n>=1);

S:=0;

for i:=1 to n do S:=S+ sqr(i);

writeln ('tong la ',S);

readln;

end.

b.

var S,i,n: integer;

begin

writeln ('nhap so nguyen duong n'); readln(n);

repeat

writeln ('nhap lai'); readln(n);

until (n>=1);

S:=0;

for i:= 1 to n do

if i mod 2 = 1 then S: = S+i;

writeln ('tong la ',S);

readln;

end.

(mình không thử nên cũng chưa biết chắc đúng nhưng mong là đúng :))

var S,i,n: integer;

begin

S:=101;

while S<=150 do

begin

writeln ('nhap n'); readln(n);

S:=101;

for i:= 1 to n do S:=S+i;

end;

writeln ('tong la ',S);

readln;

end.

(mình nghĩ vậy, nếu sai cho mình xin lỗi)

program viet_chuong_trinh;

uses crt;

var

i,n,S:integer;

begin

clrscr;

writeln('Moi nhap n = '); readln(n);

S:=0;

for i:=1 to n do S:=S + (i*i);

write(S); readln;

end.

program viet_chuong_trinh;

uses crt;

var i,n,S:integer;

begin

clrscr;

writeln('nhap n = '); readln(n);

S:=0;

for i:=1 to n do

S:=S + sqr(i);

writeln(S);

readln;

end.