viết chương trình tính tổng của một số có ba chữ số

0 bình luận về “viết chương trình tính tổng của một số có ba chữ số”

1. uses crt;

    var a, b, c: real;

   begin

    clrscr;

    write(‘Nhap a, b, c:’); readln(a,b,c);

    writeln(‘Tong cua ba so a, b, c la: ‘, a+b+c);

    readln

   end.

   Bình luận

2. read(n);
   while n <> 0 do
   begin
    a:=n mod 10;
    if a mod 2 = 0 then sum:=sum + a;
    n:=n div 10;
   end.

   Bình luận