DD Hoàng's Profile

Viết chương trình làm các nhiệm vụ sau:

• Nhập từ bàn phím ba số thực a, b, c
• Nếu a, b, c là các số dương thì kiểm tra xem ba số a, b, c đó có là độ dài ba cạnh của một tam giác hay không?

làm băng c++ có được không bạn??

2)

uses crt;

var n,m,s,i:longint;

begin

   clrscr;

   Write('m='); readln(m);

    s:=1; m:=0;

    repeat

       begin

         s:=s+n;

         n:=n+4;

        end;

     until s>m;

     Writeln('vay voi n=',n,'thi s dat gtnn la',s);

      readln;

end.

uses crt;

var i,n:longint;

begin

   clrscr;

   Write('n=');

    readln(n);

    i:=n;

    while i>=1 do

        begin

            Writeln(i);

             i:=i-1;

        end;

     readln;

end.

program timuoc;

uses crt;

var

  i,n:integer;

begin

    clrscr;

    Write('nhap n');

    Readln(n);

    For i:=1 to n do

      If n mod i =0 then

         Writeln('cac uoc cua',n,'la',i);

     Readln;

end.

 

Viết chương trình để hiển thị ra ước của 1 số được nhập từ bàn phím :3

uses crt;

Var

  i,n:integer;  a:real;

begin

  clrscr

  Write('Nhap n:');

  Readln(n);

  a:=0;

  For i:=1 to n do

     a:=a+i

  Writeln('a=',a:3:1);

  Readln;

End.