Câu 1: Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do Câu 2: Viết chương trình

0 bình luận về “Câu 1: Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do Câu 2: Viết chương trình”

1. 1.

   program Tin_hoc;

   uses crt;

   var i,n,s:integer;

   begin

   clrscr;

   write(‘N=’);readln(n);

   s:=0;

   for i:= 1 to n do s:=s+i;

   writeln(‘S=’,s);

   readln;

   end.

   2.

   program Tin_hoc;

   uses crt;

   var i,n,m,uoc:integer;

   begin

   clrscr;

   writeln(‘Nhap 2 so:’);

   readln(n);

   readln(m);

   for i:= 1 to n do if (n mod i = 0) and ( m mod i = 0) then uoc:=i;

   writeln(‘Uoc cua hai so ‘,n,’ va ‘,m,’ la: ‘,uoc);

   readln;

   end.

   Bình luận