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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
PV
1
20 tháng 2 2023
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.
22 tháng 2 2022
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;
}
ML
1
15 tháng 2 2022
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
writeln(s:4:2);
readln;
end.
BV
1
14 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long i,s;
int main()
{
s=0;
for (i=1; i<=100; i++) s+=i;
cout<<s;
return 0;
}
24 tháng 12 2020
Câu 1:
uses crt;
var a,s,p:real;
begin
clrscr;
repeat
write('Nhap do dai canh hinh vuong:'); readln(a);
until a>0;
p:=4*a;
s:=sqr(a);
writeln('Chu vi hinh vuong la: ',p:4:2);
writeln('Dien tich hinh vuong la: ',s);
readln;
end.
Câu 2:
uses crt;
var a,b,t,s,h:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=a+b;
h:=a-b;
s:=a*b;
writeln('Tong la: ',t:4:2);
writeln('Hieu la: ',h:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Câu 3:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
8 tháng 2 2022
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(s);
readln;
end.
8 tháng 2 2022
#include <iostream>
using namespace std;
int main () {
int tong = 0;
for (int i = 1 ; i <= 100; i++) tong = tong + i;
cout << " Tong S = " << tong;
return 0;
}
Chạy chương trìnhTong S = 5050
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.