Admin Admin
Tổng số bài gửi : 152 Join date : 23/04/2022 Age : 41 Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái
| Tiêu đề: Trần Đồng Nguyệt Ánh Wed Oct 26, 2022 4:11 pm | |
| | |
|
Admin Admin
Tổng số bài gửi : 152 Join date : 23/04/2022 Age : 41 Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái
| Tiêu đề: Re: Trần Đồng Nguyệt Ánh Wed Oct 26, 2022 4:12 pm | |
| Bài 1 - Code:
-
uses math; var A, C: Array[1..100000] of longint; i, n,res, k: longint;
const fi = 'CAU3.INP'; fo = 'CAU3.OUT';
begin assign(input,fi); reset(input); assign(output,fo); rewrite(output); readln(n); for i:=1 to n do read(a[i]);
//cau3a res :=0; for i:=1 to n do if sqrt(a[i]) = trunc(sqrt(a[i])) then res := max(res, a[i]); writeln(res); //het cau3a
//cau3b k:=0; for i:=1 to n do if not( (a[i] mod 3 = 0) and (a[i] mod 5 = 0) ) then begin k := k + 1; c[k]:=a[i]; end; writeln(k); for i:=1 to k do write(c[i],#32); //het cau3b close(input); close(output); end.
| |
|