viết chương trình nhập vào từ bàn phím số nguyên dương n. tính tổng các giá trị

0 bình luận về “viết chương trình nhập vào từ bàn phím số nguyên dương n. tính tổng các giá trị”

1. Program Hotboy ;

   Uses crt; 

   Var n,i,s : integer;

   Begin

   S:=0;

   Write(‘nhap n’); readln(n);

   For i:=1 to n do 

   S:=S+i;

   Writeln(‘tong tu 1 den n la’,s);

   Readln

   End.

   Bình luận

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

   n,i,s:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’] = ‘); read(a[i]);

   end;

   writeln;

   for i:=1 to n do s:=s+a[i];

   writeln(‘Tong cac gia tri trong day: ‘,s);

   for i:=1 to n do

   if not a[i] mod 2=0 then 

   begin

   write(‘So le nho nhat la: ‘,a[i],’ Chi so la: ‘,i);

   break;

   end;

   readln;

   end.

   Bình luận