Tin học viết chương trình tính tổng của một số có ba chữ số 02/08/2021 By Genesis viết chương trình tính tổng của một số có ba chữ số
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. Trả lời
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.
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.