Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Không Tên

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

Quốc Anh
23 tháng 4 2017 lúc 18:36

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

VIP
25 tháng 4 2018 lúc 21:17

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 !


Các câu hỏi tương tự
Hiền Nguyễn
Xem chi tiết
Tuoi tom May
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Huyền Trần
Xem chi tiết
Hùng Cường Nguyễn
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Thư ĐT
Xem chi tiết