Bài 5: Khai báo biến

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sang Nè
Viết công thức giải phương trình nhập vào 2 số nguyên , tính tổng và tích 2 số đó và kiểm tra xem tổng và tích có chia hết cho 5 và 9 không
Tú Nguyễn
25 tháng 12 2020 lúc 19:26

var a,b,s,p:integer;beginwrite('a=');readln(a);write('b=');readln(b);s:=a+b;p:=a*b;writeln(' Tong la: ',s);writeln(' Tich la: ',p);if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')else writeln(' Tong k chia het cho 5 va 9 ');if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')else writeln(' Tich k chia het cho 5 va 9');readln;end.

Tú Nguyễn
25 tháng 12 2020 lúc 19:28

var a,b,s,p:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

s:=a+b;

p:=a*b;

writeln(' Tong la: ',s);

writeln(' Tich la: ',p);

if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')

else writeln(' Tong k chia het cho 5 va 9 ');

if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')

else writeln(' Tich k chia het cho 5 va 9');

readln;

end.


Các câu hỏi tương tự
Thế Long
Xem chi tiết
Huy Nguyen
Xem chi tiết
Hoàng Tố Uyên
Xem chi tiết
Huy Nguyen
Xem chi tiết
lê trần ngọc quý
Xem chi tiết
Khanh Quynh
Xem chi tiết
Lê Văn Tuấn
Xem chi tiết
Phí Hoàng Mai Anh
Xem chi tiết
Mỹ Duyên
Xem chi tiết