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.
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
Câu 2:
#include <bits/stdc++.h>
using namespace std;
double p1,p2;
int i,n;
int main()
{
cin>>n;
p1=1;
p2=1;
for (i=1; i<=n; i++)
{
if (i%2==0) p2=p2*(i*1.0);
else p1=p1*(i*1.0);
}
cout<<fixed<<setprecision(2)<<p1<<endl;
cout<<fixed<<setprecision(2)<<p2;
return 0;
}
a,Thứ tự sắp xếp đúng là 9,10,1,12,11,3,4,5,6,7,8,2,13,14
b,Công dụng để tính tổng các số chẵn lớn hơn 50
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.