HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
program bai1;
var a:array[1..100] of real;
x:real;
i,n,d:longint;
begin
write('n= ');readln(n);
readln('x= ');readln(x);
for i:=1 to n do
write('a[',i,']= ');readln(a[i]);
end;
d:=0;
if a[i]<=x then d:=d+1;
write(d);
readln
end.
var i,n,s,max:longint;
s:=0;
write('a= ');readln(a);
max:=-maxlongint;
for i:=1 to a do
s:=s+i;
if s<=a then
max:=i;
write(max);
var i,a,n,s,t:longint;
f1,f2:text;
function amux(a,x:longint):longint;
var s,i:longint;
s:1;
for i:=1 to x do
s:=s*a;
amux:=s;
assign(f1,'bai1.inp';reset(f1);
assign(f2,'bai1.out');rewrite(f2);
read(f1,a);readln(f1,n);
t:=amux(a,i);
s:=s+t;
write(f1,s);
close(f1);close(f2);
Xin đề thi HSG tin 9 cấp tỉnh......Đề nhiều câu khó càng tốt....
Thanks trước