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

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

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)

program TongChan;

var

     S, i: integer;

begin

     S := 0;

     i := 2;

     while S > 2000 do

     begin

          S := S + i;

          i := i + 2;

     end;

     writeln('Tong cac so chan la ', S);

     readln;

end.

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

:v

program BaiTap;

uses crt;

var

     a, b, c, i, n: integer;

     D: longint;

begin

     clrscr;

     a:=2;

     b:=3;

     c:=5;

     n:=7;

     D:=a+b+c;

     for i:=4 to n do

     begin

          a:=b;

          b:=c;

          c:=a+b;

          D:=D+c;

     end;

     writeln('Tong la: ', D);

     readln;

end.