1 viết Chương trình nhập số nguyên n A) in ra tổng các số từ một đến N B) in ra các số chẵn số lẻ 2 viết chương trình nhập dậy số nguyên gồm N số

0 bình luận về “1 viết Chương trình nhập số nguyên n A) in ra tổng các số từ một đến N B) in ra các số chẵn số lẻ 2 viết chương trình nhập dậy số nguyên gồm N số”

1. 1) program abc;

   var

   n,i,s:integer;

   readln(n); s:=0;

   for i:=1 to n do 

   s:=s+i;

   writeln(‘cac so chan:’);

   for i:=1 to n do

   if i mod 2 =0 then write(i,’ ‘);

   writeln(‘cac so le:’);

   for i:=1 to n do if i mod 2 <>0 then write(i,’ ‘);

   writeln;

   end.

   2)

   var

     n,max,min,i:integer;

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

   begin

   readln(n);

   for i:=1 to n do read(a[i]);

   max:=a[1]; min:=a[1];

   for i:=1 to n do begin

   if a[i]>max then max:=a[i];

   if a[i] < min then min:=a[i];

   end;

   writeln(‘so lon nhat ‘,max);

   writeln(‘so nho nhat’,min);

   end.

   Bình luận

2. 1.   program vct;

   use crt;

   var i,n,s:integer;

   begin

   writeln(‘nhap n);readln(n);

   for i:= 1 to  do

   s:=s+i;

   writeln(‘tong cac so nguyen: ‘,s);

   for i:= 1 to n do

   if i mod 2 = 0 then writeln(‘ so chan la: ‘,i)

   else writeln(‘so le la: ‘,i);

   readln;

   end.

   2.    program vct;

   uses crt;

   var i,n,max,min:integer;

   begin 

   writeln(‘nhap n’);readkn(n);

   max:=1; min:=1;

   for i:= 1 to n do

   begin

   if i> max then max:=i;

   if i<min then min:=i;

   end;

   writeln(‘so lon nhat la: ‘,max);

   writeln(‘so nho nhat la: ‘,min);

   readln;

   end.

   Bình luận