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.
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;
}
à, bài này mk bik nè
Program So_Lon_Nhat;
uses crt;
var a,b,c:integer;
Begin
Writeln(' Nhap 3 so nguyen:');
Readln(a,b,c);
if (a>b) and (a>c) then write(' a la so lon nhat');
if (b>a) and (b>c) then write('b la so lon nhat');
if (c>a) and (c>b) then write('c la so lon nhat')
else write(' khong co so nao lon nhat');
Readln;
End.
Vì pascal ko vik dấu dc nên ỡ đây mk cx ko vik dấu ^^ tự hỉu nha ^^
Hình như câu này chỉ sử dụng câu lệnh for... to... do hay sao thoii í cậu. Thầy tớ gợi í thế
a)
uses crt;
var b:real;
i:integer;
begin
clrscr;
i:=10;
b:=1;
while i<=30 do
begin
b:=b*i;
i:=i+1;
end;
writeln('B=',b:0:0);
readln;
end.
b) uses crt;
var c,j:integer;
begin
clrscr;
j:=50;
c:=0;
while j<=100 do
begin
c:=c+j;
j:=j+1;
end;
writeln('C=',c);
readln;
end.
c) uses crt;
var i,d:integer;
begin
clrscr;
i:=-50;
d:=0;
while i<=50 do
begin
d:=d+i;
inc(i);
end;
writeln('D=',d);
readln;
end.
d) uses crt;
var n,i:integer;
e:real;
begin
clrscr;
write('n='); readln(n);
e:=0;
for i:=1 to n do
e:=e+1/(i*(i+2));
writeln('E=',e:4:2);
readln;
end.
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.
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.