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;

pdf7 trang | Chia sẻ: dung89st | Lượt xem: 1061 | Lượt tải: 1download
Bạn đang xem nội dung tài liệu Bài tập Pascal cơ bản cho học sinh - sinh viên, để tải tài liệu về máy bạn click vào nút DOWNLOAD ở trên

File đính kèm:

  • pdfBai_thuc_hanh_7_Xu_li_day_so_trong_chuong_trinh_20150727_113132.pdf