Những câu hỏi liên quan
APOK FF
Xem chi tiết
Nguyễn Thị Hòa
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 20:51

uses crt;

var s:string;

i,tong,x,code:integer;

f,g:text;

k:boolean;

const fi='XAU.INP'

          fo='XAU.OUT'

begin

k:=false;

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,s);

tong:=0;

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then

begin

k:=true;

val(s[i],x,code);

tong:=tong+x;

x:=0;

cod:=0;

end;

end;

if k=false then writeln(g,'Sai yeu cau')

else

begin

writeln(g,s);

writeln(g,tong);

end;

close(f);

close(g);

end.

Bình luận (0)
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2022 lúc 22:22

Câu 2: 

uses crt;

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

i,n,t,dem,j,kt,dem1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

dem:=1;

b[1]:=a[1];

for i:=1 to n do 

begin

kt:=0;

for j:=1 to dem do

  if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

begin

dem1:=0;

for j:=1 to n do 

  if a[j]=b[i] then inc(dem1);

writeln(b[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

Bình luận (0)
Trần Văn Việt Hùng
Xem chi tiết
Hello1234
Xem chi tiết
Kiều Vũ Linh
27 tháng 3 2022 lúc 10:26

var s:string;

i:integer;

begin

write('Nhap xau ki tu S = ');readln(s);

for i:=1 to length(s) do

begin

if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);

i:=length(s);

end;

readln;

end.

Bình luận (0)
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
16 tháng 3 2018 lúc 16:30

Đáp án C

Số biển số xe là: 36.25.24.10.9.8 = 11232000 biển.

Bình luận (0)
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
24 tháng 12 2017 lúc 4:16

Đáp án C

Số biển số xe là: 26.25.24.10.9.8 = 11232000  biển

Bình luận (0)
dũng
Xem chi tiết
Long ca ca
Xem chi tiết
Long ca ca
20 tháng 8 2023 lúc 19:18

Làm bằng pascal nha

 

Bình luận (0)