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 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
dem:=0;
t:=0;
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i]);
writeln;
for i:=1 to n do
if (a[i] mod 2 = 0) then dem:=dem+1;
if a[i]<a[i-1] then t:=t+1;
writeln(dem);
if t=0 then write('Co lap thanh cap so +')
else write('Ko the lap thanh cap so +');
readln;
end.
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t,dem;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (i%2==1)
{
t=t+i;
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,s,dem;
int main()
{
cin>>n;
s=0;
dem=0;
for (i=1; i<=n; i++)
{
if (i%2==1)
{
dem++;
s=s+i;
}
}
cout<<fixed<<setprecision(2)<<(s*1.0)/(dem*1.0);
return 0;
}
Var i,n:integer;
Begin
Write('nhap n = ');readln(n);
For i:=1 to n do
If i mod 2 = 1 then write(i,' ');
Readln;
End.
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
uses crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);
readln;
end.
Var s,i,n:longint;
Begin
Write('nhap so luong so N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 5 = 0 then s:=s+so*so;
End;
Write('Tong binh phuong cac boi cua 5 trong day la ',s);
Readln;
End.
a)
program Tong_5a;
uses crt;
var y: real;
n: byte;
Begin
clrscr
y:=0;
for n :=1 to 50 do
y:=y + n / ( n +1 ) ;
writeln('Tong y la: y:0:18);
readln;
End.
Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:
($e+, N+}
program Tong_5a;
uses crt;
var y:real;
n:byte;
Begin
clrscr;
y:= 0;
for n:= 1 to 50 do
y:= y + n/(n+1);
writeln('Tong y la:', y:0:18);
readln;
End.
b)
program Tong_5b;
uses crt;
var n:longint;
e, sh:real;
Begin
clrscr;
sh:=1/2;
n:= 2;
e:= 2 + sh;
while sh>= 2*1E-16 do
begin
inc(n);
sh:=sh*(1/n);
e:= e + sh;
end;
writeln('Gia tri e(n)la: ',e:10:6);
readln;
End.