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.

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<"*";

return 0;

}

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) s=s*i;

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

24 tháng 3 2021

program bang_cuu_chuong;

uses crt;

var n,tich,i:integer;

begin

clrscr;

n:=2;i:=1;

while n<=9 do

begin

while i<=10 do

begin

tich:=n*i;

writeln(n,' x ',i,' = ',tich);

i:=i+1;

end;

n:=n+1;i:=1;

end;

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long i;

int main()

{

for (i=1; i<=10; i++)

cout<<"2*"<<i<<"="<<2*i<<endl;

return 0;

}

1 tháng 4 2023

Uses crt;

var i,n: integer;

begin clrscr;

i:=12345;

while(i<>0) do begin

n:=i mod 10;      write(n,' ');

i:=i div 10;

end;

readln;

end. 

2 tháng 4 2023

Program HOC24;

var i: byte;

begin

i:=5;

while i>0 do

begin

write(i,' ');

i:=i-1;

end;

readln

end.

30 tháng 10 2021

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

3 tháng 5

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

7 tháng 4 2021

uses crt;

var i,s:integer;

begin

for i:=1 to 50 do writeln(*);

s:=0;

For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;

writeln('tong cua phep tinh la',s); readln;

end.

 

uses crt;

var i,t:integer;

begin

clrscr;

for i:=1 to 50 do

  write('*');

writeln;

t:=0;

for i:=1 to 100 do 

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

24 tháng 3 2021

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.