Quảng cáo
1 câu trả lời 445
Var a,b,T:integer;
Begin
Writeln('nhap a= '); Read(a);
If a<100 then
begin
b:= a;
T:= a mod 10; a:=a div 10;
T:= T + a mod 10;
a:= a div 10;
T:= T + a div 10;
end else writeln('vui long nhap so co hai chu so');
Writeln('tong cac chu so cua ', b , ' la ', T);
Readln;
End.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44794
-
Hỏi từ APP VIETJACK26450
Gửi báo cáo thành công!