YOMEDIA
NONE

Viết chương trình nhập vào dãy số nguyên bất kì từ bàn phím tính tổng của các dãy số chẵn có trong dãy số và in ra màn hình UCLN của a[1] và a[2]?

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

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • 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 !

      bởi Trần Thuỳ Linh 08/11/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

ZUNIA9
 

 

YOMEDIA
AANETWORK
OFF