tìm ước của a và b viết chương trình nhập điểm cho 10 học sinh

0 bình luận về “tìm ước của a và b viết chương trình nhập điểm cho 10 học sinh”

1. program Timuoc;
   var a,b,r,m,n,ucln : integer;
   begin
   write(‘Nhap a:’); readln(a);
   write(‘Nhap b :’); readln(b);
   for n:=1 to a do
   if (a mod n=0) and (b mod n=0) then write(n:3);
   readln
   end.

   program nhapdiem;
   var a : array[1..10] of real;
   i : integer;
   begin
    for i:=1 to 10 do begin
    write(‘Nhap diem cho hoc sinh ‘,i,’ la :’); readln(a[i]);
    end;
   readln
   end.

   Bình luận

2. -Chương trình 1:

   program oken;
   uses crt;
   var a,b,i: longint;
   begin
       clrscr;
       write(‘Nhap so a: ‘); readln(a);
       write(‘Nhap so b: ‘); readln(b);
       write(‘UC(‘,a,’,’,b,’:’);
       for i:= 1 to a do
           if (i mod a=0) and (i mod b=0) then
               write(‘ ‘,i);
       readln;
   end.

   -Chương trình 2:

   program oken;
   uses crt;
   var a: array [1..10] of real;
       i: byte;
   begin
       clrscr;
       for i:=1 to 10 do
           repeat
               write(‘Nhap diem ban thu ‘,i,’: ‘);
               readln(a[i]);
               if (a[i]<0) or (a[i]>10) then
                   write(‘Diem ban thu ‘,i,’ khong hop le. Moi nhap lai’);
           until (a[i]>=0) and (a[i]<=10);
       writeln(‘—-Diem cac ban vua nhap—-‘);
       for i:=1 to 10 do
           writeln(‘Diem ban thu ‘,i,’: ‘,a[i]:0:1);
       readln;
   end.

   Bình luận