K
Khách

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 s1:real;

i,n,s2,a:integer;

begin

clrscr;

readln(n);

s1:=1;

for i:=1 to n do s1:=s1*i;

writeln(s1:0:0);

s2:=0;

a:=10;

repeat

s2:=s2+a;

a:=a+1;

until s2>=10000;

writeln(s2);

readln;

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

1 tháng 11 2015

1.

a) p = 1

b) p = 1 

c) p = 1 

3.

là hợp số . Vì 2*3*5*7*11+13*17*19*21 = 90489

1 tháng 11 2015

đăng từng bài 1 thôi nhiều quá ngất xỉu luôn.

a)

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>1;

writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');

for i:=2 to n do 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.