2022_OnTin by Quyen Nguyen

Bài tập 24.10.2021

nthquyen79 — 2021-10-24 01:54:07 UTC

Đề Kiểm tra lần 2

nthquyen79 — 2021-11-28 00:59:58 UTC

2021-11-28 01:38:25 UTC

Bài 1

2021-11-28 01:52:48 UTC

Bai Tap CN04

nthquyen79 — 2021-11-28 02:02:57 UTC

2021-11-28 02:14:41 UTC

xulyuocso

longhoangtran37 — 2021-11-28 02:20:07 UTC

Bài 3a

2021-11-28 02:21:36 UTC

longhoangtran37 — 2021-11-28 02:26:11 UTC

longhoangtran37 — 2021-11-28 02:29:28 UTC

Bai tap IF

nthquyen79 — 2021-11-28 02:31:53 UTC

Ví dụ 3. Độ tuổi DOTUOI
Viết chương trình nhập vào tuổi của một người và cho biết người đó là thiếu niên, thanh niên, trung niên hay lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18 đến 39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên.
if ( tuoi < 18) then .......
else if (tuoi<=39) then ......
else if (tuoi <=60) then .....
else writeln...

bai2c

longhoangtran37 — 2021-11-28 02:34:46 UTC

Bài 3b

2021-11-28 02:36:58 UTC

2021-11-28 02:39:26 UTC

baid

longhoangtran37 — 2021-11-28 02:40:09 UTC

bai2e

longhoangtran37 — 2021-11-28 02:46:44 UTC

bai2f

longhoangtran37 — 2021-11-28 02:51:00 UTC

bai2g

longhoangtran37 — 2021-11-28 02:54:20 UTC

Bài 4a

2021-11-28 02:58:32 UTC

bai2h

longhoangtran37 — 2021-11-28 03:03:13 UTC

2021-11-28 03:05:18 UTC

bai2i

longhoangtran37 — 2021-11-28 03:06:25 UTC

tinhsk

longhoangtran37 — 2021-11-28 03:18:40 UTC

Bài 4b

2021-11-28 03:19:02 UTC

bai tisnh S

nthquyen79 — 2021-11-28 03:26:11 UTC

In xoan oc

nthquyen79 — 2021-11-28 03:26:50 UTC

2021-11-28 03:58:05 UTC

cactong

longhoangtran37 — 2021-11-28 07:59:41 UTC

2021-12-02 07:54:30 UTC

2021-12-02 08:38:55 UTC

GIACONG.PAS

2021-12-05 01:05:30 UTC

const fi='GIACONG.INP';
fo='GIACONG.OUT';
var n,kq:int64;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
close(f);
end;

procedure ghifile;
begin

assign(f,fo);
rewrite(f);
kq:=(n+1)*n div 2;
writeln(f,kq);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

BL2

longhoangtran37 — 2021-12-05 01:05:52 UTC

MUATAP.PAS

2021-12-05 01:06:01 UTC

const fi='MUATAP.INP';
fo='MUATAP.OUT';
var n,kq:int64;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
close(f);
end;

procedure ghifile;
begin

assign(f,fo);
rewrite(f);
if (n<=10) then
kq:=n*5000
else if (n<=20) then
kq:=n*4800
else kq:=n*4500;
writeln(f,kq);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

Đề TS 2020-2021 của Đồng Tháp

nthquyen79 — 2021-12-05 01:06:09 UTC

BL3

longhoangtran37 — 2021-12-05 01:06:18 UTC

BL3

longhoangtran37 — 2021-12-05 01:06:32 UTC

HANGCAY.PAS

2021-12-05 01:06:34 UTC

const fi='HANGCAY.INP';
fo='HANGCAY.OUT';
var n,d,max,i,k,d2:integer;
a:array[1..1000000] of integer;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
close(f);
end;

procedure ghifile;
begin
d:=0;max:=0;d2:=0;
assign(f,fo);
rewrite(f);
for i:=1 to n do
begin
if a[i]=k then
begin
inc(d);
inc(d2);
end
else
d2:=0;
if d2>max then max:=d2;
end;
writeln(f,d);
writeln(f,max);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

BL4

longhoangtran37 — 2021-12-05 01:06:51 UTC

BL4

longhoangtran37 — 2021-12-05 01:07:08 UTC

link bài tập Chủ nhật 05/12/2021

nthquyen79 — 2021-12-05 01:07:23 UTC

https://docs.google.com/document/d/1y7xiCtSivb9AR2AzsdzCnnoqW5a4OGOE/edit

DOIDUA.PAS

2021-12-05 01:07:29 UTC

const fi='DOIDUA.INP';
fo='DOIDUA.OUT';
var n,d,i,max:longint;
a,c:array[1..1000000] of longint;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
inc(c[a[i]]);
if a[i]>max then max:=a[i];
end;
close(f);
end;

procedure ghifile;
begin
assign(f,fo);
rewrite(f);
for i:=1 to max do
begin
if c[i]>2 then
d:=d+c[i] div 2;
end;
writeln(f,d);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

BL1

longhoangtran37 — 2021-12-05 01:20:49 UTC