Question

giải giúp vs m.n

BT1:viết chương trình nhập vào điểm toán, tin, văn của các học sinh. In ra màn hình điểm tb và xếp loại của từng học sinh trong lớp. bt: hsg>=8.0; hsk<8.0 và hsk>=6.5; hstb<6.5 và hstb>=5.0; hs yếu <5.0

BT2: viết chương trình nhập vào dãy số nguyên bất kì từ bàn phím.

a) tính tổng của các dãy số chẵn có trong dãy số.

b) in ra màn hình các số chẵn trên một dòng, số lẽ trên một dòng.

c) in ra màn hình số lớn nhất, nhỏ nhất có trong dãy.

d) in ra màn hình các số nguyên tố.

e) in ra màn hình UCLN của a[1] và a[2]

help me!!! @F.C

Answer 1

câu d/ thì vượt quá trình độ cấp 2!

Answer 2

BT1

const
nhap='BT1.inp';
xuat='BT1.out';
var
s,toan,tin,van:real;
t:integer;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
read(toan,tin,van);
s:=(toan+tin+van)/3;
write(s:0:1);
if s<5 then t:=1;
if (s>=5)and (s<6.5) then t:=2;
if (s>=6.5) and (s<8) then t:=3;
if (s>=8) then t:=4; writeln;
if t=1 then write('hsy');
if t=2 then write('hstb');
if t=3 then write('hstb');
if t=4 then write('hsg');
close(input); close(output);
end.

BT2

a)const
nhap='BT2a.inp';
xuat='BT2a.out';
var
s,n,i:longint;
a:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
write(s);
close(input); close(output);
end.

b)const
nhap='BT2b.inp';
xuat='BT2b.out';
var
n,i,m,t:longint;
a,b,k:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n); t:=1; m:=1;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then begin k[t]:=a[i]; t:=t+1; end;
if a[i] mod 2<>0 then begin b[m]:=a[i]; m:=m+1; end;
end;
for i:=1 to t-1 do
write(k[i],' '); writeln;
for i:=1 to m-1 do
write(b[i],' ');
close(input); close(output);
end.

c)const
nhap='BT2c.inp';
xuat='BT2c.out';
var
i,n,min,max:longint;
a:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(min); writeln(max);
close(input); close(output);
end.

Câu d và câu e mk sẽ gửi sau nha !