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.
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.
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double t;
int i,n;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
t=t+(1*1.0)/(i*1.0);
cout<<fixed<<setprecision(2)<<t;
return 0;
}
Program HOC24;
var i: byte;
s: longint;
begin
s:=1;
for i:=1 to 100 do s:=s*i;
write('S = ',s);
readln
end.
var i:integer;
s: longint;
begin
s:=1;
for i:=2 to 100 do s:=s*i;
write('S = ',s);
readln
end.
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
var p:double;
i:longint;
begin
p:=1;
for i:=2 to 100 do
p:=p*(1/i);
write(p);
end.
uses crt;
var p:real;
i:integer;
begin
clrscr;
p:=1;
for i:=1 to 100 do
p:=p*(1/i);
writeln('tich P',p:15);
readln;
end.