kiểm tra à

đề cương

Câu 4:

Số lần biết trước:

- Mỗi ngày em nấu cơm 3 lần

- Mỗi ngày em đánh răng buổi sáng và buổi tối

- Em bị phạt chép 100 lần

Số lần chưa biết trước:

- Mẹ bảo em múc nước đến khi đầy bình 

- Chữ em xấu, em bị phạt viết chữ đến khi đẹp

Câu 5: Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có chung kiểu dữ liệu, gọi là kiểu dữ liệu phần tử.

Câu 6:

Program HOC24;

var S: longint;

i,n: integer;

begin

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

s:=0;

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

write('S= ',s);

readln

end.

Câu 7: 

Program HOC24;

var S: longint;

i,n: integer;

begin

s:=0;

for i:=1 to 200 do s:=s+i;

write('Tong 200 so nguyen dau tien la; ',s);

readln

end.

Câu 8;

Program HOC24;

var S: longint;

i,n: integer;

begin

s:=1;

for i:=1 to 30 do s:=s*i;

write('Tong 30 so nguyen dau tien la; ',s);

readln

end.

Program HOC24;

var i,n: integer;

S,P: longint;

begin

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

{..............................................}

readln

end.

-----------------------------------------------------------

Bạn điền vào {........................} theo từng bài nhé

a) S:=0; 

for i:=1 to N do if i mod 2=1 then s:=s+i;

write('S= ',s);

b)

S:=0;

for i:=1 to N do if i mod 2=0 then s:=s+i;

write('S= ',s);

c) P:=1;

for i:=1 to N do if i mod 2=0 then p:=p*i;

write('P= ',p);

d)

P:=1;

for i:=1 to N do if i mod 2=1 then p:=p*i;

write('P= ',p);

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

program tinh_tong_chan;

uses crt;

Var i,N,S: integer;

begin

clrscr;

writeln('nhap so n');

readln(N);

S:=0;

i:=1;

while i <= N do

begin

S:=S+i;

i:=i+1;

end;

Writeln('tong la: ',S);

readln;

end.

đây bạn nha

tham khảo

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

tham khảo

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.