Program HOC24;

var i,n,d,d1: integer;

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

begin

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

for i:=1 to n do 

begin

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

end;

d:=0; d1:=0;

for i:=1 to n do

begin

if a[i] <0 then d:=d+1;

if a[i]>0 then d1:=d1+1;

end;

writeln('Co ',d,' so duong trong mang');

write('Co ',d1,' so am trong mang');

readln

end,

z sẽ thuộc kiểu longint vì \(300.400=120000>32767\)

x = input("Nhập xâu X: ")

y = input("Nhập xâu Y: ")

count = y.count(x)

print("Số lần xuất hiện của xâu X trong xâu Y là:", count)

Program HOC24;

var s: string;

i,d: byte;

begin

write('Nhap xau: '); readln(s);

while s[1]=#32 do delete(s,1,1);

while length(s)=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

d:=0;

for i:=1 to length(s) do if s[i]=#32 then d:=d+1;

write('Trong xau co ',d+1, ' tu');

readln

end.

program Hoc;

var

     n, i, j, dem: integer;

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

begin

     clrscr;

     writeln('Nhap vao so phan tu trong day: ');

     readln(n);

     writeln('Nhap cac phan tu cua day: ');

     for i:=1 to n do

     begin

          readln(a[i]);

     end;

     dem:=0;

     for i:=1 to n do

     begin

          for j:=1 to i-1 do

          begin

               if(a[i] = a[j]) then

               begin

                    break;

               end;

          end;

          if(j = i-1) then

          begin

               dem:= dem+1;

          end;

     end;

     writeln('So gia tri khac nhau trong day la: ', dem);

     readln;

end.

Program HOC24;

var S,n: integer;

begin

s:=1; n:=0;

while s<10 do

begin

n:=n+2;

s:=s+n;

end;

write('S= ' ,s);

readln

end.

Program HOC24;

var i: byte;

begin

for i:=0 to 76 do write(i,' ');

readln

end.

thầy giải lại giúp con tại hồi này con ghi sai

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

cô cho đề như thế, mà mình bt làm r