Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình. Bài 2.viết ct pascal nhập 1 mảng các số nguyên bấ

Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình.
Bài 2.viết ct pascal nhập 1 mảng các số nguyên bất kì ghi ra màn hình các số dương và chẵn có trong mảng

0 bình luận về “Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình. Bài 2.viết ct pascal nhập 1 mảng các số nguyên bấ”

  1. 1.

    program mmm;

    uses crt;

    var n,i,s:longint;

    begin

    writeln(‘nhapn =’);readln(n);

    i:=2;

    while i>= n do

    begin

    s:=s+i;

    i:=i+2;

    end .

    2.
    var a:array[1..100] of integer;

    n,i:integer;
    begin
     clrscr;
     write(‘Nhap n: ‘); readln(n);
     for i:=1 to n do
      begin
       write(‘a[‘,i,’]: ‘); readln(a[i]);
      end;
     for i:=1 to n do
      if a[i] mod 2=0 then

    write(a[i],’  ‘);
     readln;
    end.

    Bình luận
  2. Câu 1:
    uses crt;
    var a:array[1..100] of integer;n,i:integer;s:longint;
    begin
     clrscr;
     write(‘Nhap n: ‘); readln(n);
     for i:=1 to n do
      begin
       write(‘a[‘,i,’]: ‘); readln(a[i]);
      end;
     for i:=1 to n do
      if a[i] mod 2<>1 then s:=s+a[i];
      write(‘Tong cac so chan: ‘,s);
     readln;
    end.
    Câu 2:
    uses crt;
    var a:array[1..100] of integer;n,i:integer;
    begin
     clrscr;
     write(‘Nhap n: ‘); readln(n);
     for i:=1 to n do
      begin
       write(‘a[‘,i,’]: ‘); readln(a[i]);
      end;
     for i:=1 to n do
      if a[i] mod 2<>1 then write(a[i],’ la so chan.’);
     readln;
    end.

    Bình luận

Viết một bình luận