Tin học Tin 11

Vy Mity

Học sinh chăm học
Thành viên
20 Tháng chín 2017
744
597
126
21
Đắk Lắk
THPT Krông Ana
Last edited by a moderator:

Tạ Đặng Vĩnh Phúc

Cựu Trưởng nhóm Toán
Thành viên
10 Tháng mười một 2013
1,559
2,715
386
25
Cần Thơ
Đại học Cần Thơ
Em viết đơn giản thôi:

var
m, n: Integer;
begin
writeln ('Nhap m = '); readln (m);
writeln ('Nhap n = '); readln (n);
writeln ('Tong : ', m + n);
writeln ('Hieu: ', m - n);
writeln ('Tich: ', m * n);
writeln ('Chia nguyen: ', m div n);
writeln ('Chia lay phan du ', m mod n);
end.
 
Top Bottom