var s,i,n:integer;

begin

Write('n = ');

While (n > 100) and (n < 1) then

Begin

write('Nhap sai, nhap lai ');readln(n);

End;

for i:=1 to n do

s:=s+i;

write('tong la: ',s);

readln;

end.

L=int(input('L='))

R=int(input('R='))

a=int(input('a='))

b=int(input('b='))

if a > 0 and b > 0 and R > 0 and L > 0:

       d=0

       for i in range (L,R+1):

              if i%a==0 or i%b==0:

                     d+=1

       print('Số lượng các bội số của ',a,' hoặc ',b,' là: ',d)

n=int(input('n='))

S=0

for i in range (1,n+1):

       S+=i*(i+1)

print('Tổng S là:',S)

Em cho thêm điều kiện loại Khá của em là gì?

chỗ 1: setpensize 

chõ 2: repeat 4

repeat 5[repeat 7[fd 100 rt 45]rt 360/5

uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.

Sửa: s:=1; for i:=1 to 8 do s:=s+i; writeln('s=',s);

-> Đoạn chương trình trên: vòng lặp là tính tổng từ 1 đến 8.

=> S= 1+1+2+3+4+5+6+7+8 = 37

Vậy S = 37

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.