Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Tiên Tiên
Xem chi tiết
Nguyen Hung
2 tháng 5 2021 lúc 20:06

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

 

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

Bùi Anh Tuấn
2 tháng 5 2021 lúc 20:16

Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:25

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

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

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

ve(a,b);

readln;

end.

buihoanghiep
Xem chi tiết
Selena Flynn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 23:03

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;

}

Đức Kiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:14

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

Lê Đoàn Bảo Long
Xem chi tiết
nguyễn an phát
24 tháng 3 2021 lúc 10:38

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.

Dương Nguyệt Hạ
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 7:27

#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;

}

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
30 tháng 4 2017 lúc 16:06

Var a: string;

  i, Dem: integer;

Begin

 writeln(‘nhap xau:’);

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If a[i] =’ ‘ then

  Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

Nguyễn Phương Kim
Xem chi tiết
HT.Phong (9A5)
1 tháng 4 2023 lúc 7:47

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. 

Minh Lệ
2 tháng 4 2023 lúc 0:29

Program HOC24;

var i: byte;

begin

i:=5;

while i>0 do

begin

write(i,' ');

i:=i-1;

end;

readln

end.

Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:28

program HOC24;
var
   i: integer;
begin
   i := 5;
   while i >= 1 do
   begin
      write(i, ' ');
      i := i - 1;
   end;
end.

 

Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

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;

}

Đỗ Thành Nhân
3 tháng 5 lúc 11:14

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