Tin học Viết chương trình Pascal để:

Cầu Vồng said:

1, Nhập vào số a, b và tìm UCLN của chúng
2, Tìm tất cả các số có 3 chữ số sao cho abc=3a+3b+3c
3, Tính tổng S=12+22+...+ n2. Với n được nhập vào từ bàn phím
4, Nhập vào một dãy các số nguyên và in ra màn hình dãy là cấp số cộng hay cấp số nhân không
5, Nhập vào một dãy các số nguyên in max min của dãy (không sắp xếp)

Bấm để xem đầy đủ nội dung ...

Function Kt(x:integer):Boolean;
Var a,b,c:integer;
Begin
    c:=x mod 10;x:=x div 10;
    b:=x mod 10;x:=x div 10;
    c:=x mod 10;
    If 3*a+3*b+3*c=x then KT:=true
    else kt:=false;
End;

For i:=100 to 999 do
   If kt(i)=true then write(i,' ');

For i:=1 to n do
  s:=s+(i*10+2);

max:=a[1];min:=a[1];
For i:=2 to n do
  Begin
     if a[i]>max then max:=a[i];
     If a[i]<min then min:=a[i];
  end;

Cầu Vồng said:

Bạn viết nhầm rồi. S=11+22+..+n2 chứ không phải S=1x2+2x2+...+nx2

Bấm để xem đầy đủ nội dung ...

s:=0;
For i:=1 to n do
   s:=s+(i*10+2);