Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Var r,s,c:real;
Begin
Write('Ban kinh = ');readln(r);
s:=3.14*r*r;
c:=2*3.14*r;
Writeln('Dien tich la ',s:10:2);
Write('Chu vi la ',c:10:2);
Readln
End.
Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
Program Tim_uoc_2;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
a: Input: Số a
Output: Kiểm tra xem a là số chẵn hay lẻ
b:
Bước 1: Nhập a
Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn
không thì a là số lẻ
Bước 3: Kết thúc
c:
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write('a la so chan')
else write('a la so le');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int a,b,c,A[3];
int main()
{
cin>>a>>b>>c;
A[1]=a; A[2]=b; A[3]=c;
sort(A+1,A+3);
for (int i=3; i>=1; i--) cout<<A[i]<<" ";
return 0;
}
uses crt;
Var a,b: Real;
begin
Clrscr ;
Write ('Nhap a: '); readln (a);
Write ('Nhap b: '); readln (b);
If a < b then write ('Sap xep theo thu tu tang dan: ',a,' ',b);
If a > b then write ('Sap xep theo thu tu tang dan: ',b,' ',a);
if a = b then write ('Khong the thuc hien yeu cau!');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln(a,' ',b);
if a>b then writeln(b,' ',a);
if a=b then writeln('vui long nhap hai so khac nhau');
readln;
end.