Thuật toán
Chia sẻ bởi Huỳnh Phước Sang |
Ngày 25/04/2019 |
84
Chia sẻ tài liệu: thuật toán thuộc Tin học 11
Nội dung tài liệu:
Chươngtrìnhpascannhập 2 sốa,bđuaramànhìnhtổng, hiệutíchthươngcủa 2 sốđó
Program tinh;
Uses crt;
Var a,b:integer;
begin
Clrscr; Write(`Nhapvaolanluot 2 so a va b`); Readln(a,b); Writeln(`Tong cua a va b la: `, a+b);
Writeln(`Hieucua a va b la: `, a-b); Writeln(`Tichcua a va b la: `,a*b); If b<>0 then Writeln(`Thuongcua a va b la: `,a/b) else Writeln(`Khong the chia cho 0, b phaikhac 0`); Readln; End.
Program tinh;
Uses crt;
Var a,b:integer;
begin
Clrscr; Write(`Nhapvaolanluot 2 so a va b`); Readln(a,b); Writeln(`Tong cua a va b la: `, a+b);
Writeln(`Hieucua a va b la: `, a-b); Writeln(`Tichcua a va b la: `,a*b); If b<>0 then Writeln(`Thuongcua a va b la: `,a/b) else Writeln(`Khong the chia cho 0, b phaikhac 0`); Readln; End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Huỳnh Phước Sang
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)