Trần Đồng Nguỵet Ánh
Tổng số bài gửi : 80 Join date : 26/10/2022
| Tiêu đề: Re: Trần Đồng Nguyệt Ánh Sun Dec 11, 2022 1:12 pm | |
| BTVNHT_day1_bai1 - Code:
-
var n,i,dem:longint; function scp(v:longint):boolean; begin if trunc(sqrt(v)) = sqrt(v) then exit(true) else exit(false); end; BEGIN assign(input,'BAI8.INP'); assign(output,'BAI8.OUT'); reset(input); rewrite(output); readln(n); dem:=0; for i:=1 to n do if scp(i) then inc(dem); write(dem); close(input); close(output); END. | |
|
Trần Đồng Nguỵet Ánh
Tổng số bài gửi : 80 Join date : 26/10/2022
| Tiêu đề: Re: Trần Đồng Nguyệt Ánh Sun Dec 11, 2022 1:23 pm | |
| BTVNHT_DAY1BAI9 - Code:
-
var n,i:longint; function demcacuoc(v:longint):longint; var i,dem:longint; begin dem:=0; for i:=1 to v do if v mod i = 0 then inc(dem); exit(dem); end; BEGIN assign(input,'BAI9.INP'); assign(output,'BAI9.OUT'); reset(input); rewrite(output); readln(n); write(demcacuoc(n)); close(input); close(output); END. | |
|
Trần Đồng Nguỵet Ánh
Tổng số bài gửi : 80 Join date : 26/10/2022
| Tiêu đề: Re: Trần Đồng Nguyệt Ánh Sun Dec 11, 2022 1:32 pm | |
| BTVNHT_day1bai10 - Code:
-
var n,i:longint; BEGIN assign(input,'BAI10.INP'); assign(output,'BAI10.OUT'); reset(input); rewrite(output); readln(n); for i:=1 to n do if (n mod i = 0) and (i mod 2 = 0) then write(i,#32); close(input); close(output); END. | |
|
Sponsored content
| Tiêu đề: Re: Trần Đồng Nguyệt Ánh | |
| |
|