trường bạn thì chỉ có bạn ms biết thầy cô phụ trách môn tin chứ hoc24 toàn những hs trường khác làm s biết dc?

ko phải trường nào cũng có thầy cô đâu, trường mình ko có thầy cô nào có nick trên này cả nhé

Program kthkII;

uses crt;

var i, n, s, N : integer;

A: array[1..100] of integer;

begin

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

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

begin write('A[',i,']='); readln(A[i]); end;

for i:=1 to n do write('A[',i,']= ', A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('Tong cac so la: ', s);

readln;

End.

program So_nguyen_to;

uses crt;
var i,dem,j:Integer;
begin clrscr;
writeln('Cac so nguyen to tu 2 den 100 la:');
for j:=2 to 100 do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=2 then write(j,' ');

end;
readln;
end.

qua trang của mik giúp mik mấy bài tin vs ... mik đã đăng lên rồi

Lê Thị Ngọc Bích

Program luy_thua;

Uses crt;

Var a, i, n: integer;

Begin

Write('Nhap co so a: '); readln(a);

Write('Nhap so mu n: '); readln(n);

For i:=1 to n do a:=a*a;

Writeln('Gia tri a luy thua n la: ', a);

Readln;

End.

Phỏ i Var i, n, s, a:integer;

Begin

Readln(a, n);

s:=1;

For i:=1 to n do s:=s*a;

Writeln(s);

End.

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

lần thứ nhất i=1+1=2, j=2+1=3; k=3+3=6

lần thứ hai \(i=2+1=3;j=3+1=4;k=6+4=10\)

Lần thứ ba \(i=3+1=4;j=4+1=5;k=10+5=15\)

Lần thứ tư \(i=4+1=5;j=5+1=6;k=15+6=21\)

Lần thứ năm \(i=5+1=6;j=6+1=7;k=21+7=28\)

vì qua lần thứ năm này giá trị của i vẫn thỏa mãn (đúng) với điều kiện nên câu lệnh tiếp tục thực hiện:

\(i=6+1=7;j=7+1=8;k=28+8=36\)

Qua lần lặp này giá trị của i>6 nên không thỏa mãn điều kiện, câu lệnh kết thúc.

Giá trị của i, j, k được in ra màn hình lần lượt bằng 7, 8, 36

Var T,n,i:integer;

begin

readln(n);

while n mod 2 =0 do begin

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

end;

T:=1;

for i:=1 to n do

if i mod 2 <>0 then T:=T*i;

write(T);

end.

mình làm TH n lẻ thôi, TH n chẵn bạn lm tương tự nha :3

program chan_le;

uses crt;

Var so1, so2: integer;

Begin

write('Nhap so thu nhat: '); readln(so1);

write('Nhap so thu hai: '); readln(so2);

if (so1 mod 2 = 1) and (so2 mod 2 = 0) then

write('Ban vua nhap vao mot so chan va mot so le')

else if (so1 mod 2 = 0) and (so2 mod 2 = 0)

then write('Ca hai deu la so chan')

else if (so1 mod 2=1) and (so2 mod 2 = 1)

then write('Ca hai deu la so le');

readln;

end.

Với đoạn lẹnh này chương trình sẽ thực hiện 3 vòng lặp và kết thúc giá trị của S=21.

Lần thứ nhất:

n=n+3=1+3=4; S=S+n=0+4=4;

Lần thứ hai:

\(n=n+3=4+3=7;S=S+n=4+7=11;\)

Lần thứ ba:

\(n=n+3=7+3=10;S=S+n=11+10=21;\)

đến lần này S=21 mà 21>18 không thỏa mãn điều kiện nên lệnh lặp không được thực hiện, câu lẹnh kết thúc, S=21 lặp 3 lần.

4a

5d

7 không đáp án nào đúng đâu bạn

8c

9a

12a

13a

14d

15c

16c

17b

19c

chúc bạn thi tốt