Những câu hỏi liên quan
PM
Xem chi tiết
NT
11 tháng 12 2021 lúc 23:18

Câu 1: B

Câu 2: A

Bình luận (0)
NG
Xem chi tiết
NT
15 tháng 5 2021 lúc 10:43

vd: 

Program chuongtrinhnhapmang;

var n:integer;

begin

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

end;

Những từ in đậm là từ khóa

in nghiêng là tên chương trình

Bình luận (0)
ML
Xem chi tiết
DT
25 tháng 4 2018 lúc 22:21

Program Doi_Sang_Chu_Hoa;
Var S , SH: String; i : Byte;
Begin
Write('Nhap vao mot chuoi chu thuong : '); Readln(S);
SH := ''; {tạo xâu rỗng SH}
For i := 1 to Length(S) do SH[i] := UpCase(S[i];
Write('Chuoi da doi sang chu hoa: ',SH);
Readln;
End.

bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang chữ hoa

Bình luận (1)
DT
25 tháng 4 2018 lúc 22:22

Program Chuoi_In_Hoa;
Uses Crt;
Var i:integer;st:string;

Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);

Readln;

End.

Bình luận (1)
PH
31 tháng 7 2021 lúc 21:15

program helo;

ues crt;

var s:string;i:longint

begin

clrscr;

write('s:=');readln(s);

for i:=1 to length(s) do s[i]:=upcase(s[i]);

writeln('s sau khi duoc doi sang chu hoa la');

readln;

end.

Bình luận (0)
TT
Xem chi tiết
BT
27 tháng 12 2020 lúc 20:27

Tam giác vuông

Bình luận (1)
BT
27 tháng 12 2020 lúc 20:27

Tam giác cân

Bình luận (1)
NT
27 tháng 12 2020 lúc 20:18

Tam giác dạng gì vậy bạn? Cân, đều hay là thường

 

Bình luận (0)
NC
Xem chi tiết
NT
15 tháng 3 2022 lúc 20:28

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

begin  

if st[i]=' ' then writeln

else write(st[i]);

end;

readln;

end.

Bình luận (1)
KT
Xem chi tiết
QM
Xem chi tiết
NT
14 tháng 12 2020 lúc 22:23

uses crt;

var st:string;

d,i,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('So dau cach trong xau la: ',dem);

readln;

end.

Bình luận (0)
PT
Xem chi tiết
PT
1 tháng 11 2021 lúc 17:48

giúp mk đi các bạn

mk xin đấy

Bình luận (0)
NM
2 tháng 11 2021 lúc 8:45

Câu 1:

b, 15*(4+30+12)

c, (a+b)^2*(d+e)^3

d, a*x^2+b*x+2*c

Bình luận (0)
NT
2 tháng 11 2021 lúc 23:28

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

cout<<x*y;

return 0;

}

Bình luận (0)
HL
Xem chi tiết
H24
22 tháng 1 2024 lúc 22:16

Program HOC24;

var x: integer;

begin

write('Nhap so: '); readln(x);

if x div 1000=1 then write('Mot nghin ');

if x div 1000=2 then write('Hai nghin ');

if x div 1000=3 then write('Ba nghin ');

if x div 1000=4 then write('Bon nghin ');

if x div 1000=5 then write('Nam nghin ');

if x div 1000=6 then write('Sau nghin ');

if x div 1000=7 then write('Bay nghin ');

if x div 1000=8 then write('Tam nghin ');

if x div 1000=9 then write('Chin nghin ');

if x div 1000<>0 then

if x div 100=0 then write('khong tram ');

if x div 100=1 then write('mot tram ');

if x div 100=2 then write('hai tram ');

if x div 100=3 then write('ba tram ');

if x div 100=4 then write('bon tram ');

if x div 100=5 then write('nam tram ');

if x div 100=6 then write('sau tram ');

if x div 100=7 then write('bay tram ');

if x div 100=8 then write('tam tram ');

if x div 100=9 then write('chin tram ');

if (x div 1000<>0) or (x div 100<>0) then

begin

if (x div 10<>0) then

begin

if x div 10=1 then write('muoi ');

if x div 10=2 then write('hai muoi ');

if x div 10=3 then write('ba muoi ');

if x div 10=4 then write('bon muoi ');

if x div 10=5 then write('nam muoi ');

if x div 10=6 then write('sau muoi ');

if x div 10=7 then write('bay muoi ');

if x div 10=8 then write('tam muoi ');

if x div 10=9 then write('chin muoi ');

if x mod 10=1 then write('mot');

if x mod 10=2 then write('hai');

if x mod 10=3 then write('ba');

if x mod 10=4 then write('bon');

if x mod 10=5 then write('lam');

if x mod 10=6 then write('sau');

if x mod 10=7 then write('bay');

if x mod 10=8 then write('tam');

if x mod 10=9 then write('chin');

end else

begin

if x mod 10=1 then write('le mot');

if x mod 10=2 then write('le hai');

if x mod 10=3 then write('le ba');

if x mod 10=4 then write('le tu');

if x mod 10=5 then write('le nam');

if x mod 10=6 then write('le sau');

if x mod 10=7 then write('le bay');

if x mod 10=8 then write('le tam');

if x mod 10=9 then write('le chin');

end;

readln

end.

Bình luận (0)