program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln('KIEM TRA TAM GIAC'); writeln('nhap 3 canh a,b,c:'); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a)then begin writeln('day la 3 canh cua tam giac'); if(a*a=b*b+c*c) or(b*b=a*a+c*c)or(c*c=a*a+b*b)then writeln('TAM GIAC VUONG')else if(a=b)and(b=c)then writeln('TAM GIAC DEU') else if(a=b)or(a=c)or(b=c)then writeln('TAM GIAC CAN')else writeln('TAM GIAC THUONG'); end else writeln('khong phai ba canh tam giac'); readln; end.

Program Tao_bang;
Uses Crt;
Var
 i: byte;    {chi so cua hang}
 j: byte;    {chi so cua cot}
Begin
Clrscr;{xoa man hinh}
 For i:=0 to 9 do  {viet theo tung hang}
 begin
 For j:=0 to 9 do  {viet theo tung cot tren moi hang}
       write(10*i+j:4);  {viet cac so ij ra man hinh}
       writeln;    {xuong hang moi}
 end;  {xong hang thu i}
 readln;           {dung chuong trinh de xem ket qua}
end.

Bước 1: s <-- 0; n<--2;

Bước 2: Nếu n>=5 thì chuyển tới bước 4

Bước 3: n<-- n+1; S<-- S+n và quay lại bước 2

Bước 4: In giá trị S và kết thúc thuật toán

a) Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp?

    Kết thúc giá trị của S bằng bao nhiêu?

b)Viết chương trình bằng Pascal để mô tả thuật toán đó

Viết chương trình tính tích (P) của n số tự nhiên (>0) đầu tiên liên tiếp chia hết cho 3. Với n nhập từ bàn phím.

program nothing_in_here2;
uses crt;
var P,n,x: integer;
begin
clrscr;
readln(n);
P := 1;
for x:=2 to n do
    if x mod 3 = 0 then do P:= P*x;
writeln(P);
readln;
end.

Code lỗi ở đâu vậy ạ?

Tìm và sửa lỗi cho chương trình sau:

Bài 1:

Program bai 1;

Var x; n: integer;

Begin

        X=12

        Write(n:4,x:4);

ReadIn

End.

Bài 2:

Program 2bai;

Var i, n, s:real;

Begin

      S:=0

      For i:=0.5 to n do

               S=S+i;

      Write(s);

      ReadIn

End.