OPTADS360
AANETWORK
AMBIENT
YOMEDIA
Banner-Video
IN_IMAGE

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

  bởi Dương Quá 08/11/2018
ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu 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
Cách tích điểm HP

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
 
 

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

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 8