Bài tập Pascal cơ bản cho học sinh - sinh viên
Bài 7:
uses crt;
var a:integer;tong:byte;
BEGIN
clrscr;
write('Nhap 1 so co 3 chu so: ');readln(a);
tong:= a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
File đính kèm:
- Bai_thuc_hanh_7_Xu_li_day_so_trong_chuong_trinh_20150727_113132.pdf