Cấu trúc rẽ nhánh và lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
van hoan Dao

nhập vào 3 số nguyên từ bàn phím sau đó dưa ra màn hình. tổng 3 số này có chia hết cho 3 hoặc chia hết cho 5 hay không

duong nguyenvan
14 tháng 11 2017 lúc 19:03

Program bai1;

uses crt;

var a,b,c: integer;

s: longint;

begin

clrscr;

write('nhap so nguyen 1 = '); readln(a);

write('nhap so nguyen 2 = '); readln(b);

write('nhap so nguyen 3 = '); readln(c);

s:=a+b+c;

if (s mod 3 = 0 ) and (s mod 5 = 0 ) then

writeln('tong 3 chu so a b c chia het cho 3 va 5') else

writeln('tong 3 chu so a b c khong chia het cho 3 va 5');

readln;

end.

Tuấn Tủn
16 tháng 11 2017 lúc 22:44

program baitap;

uses crt;

var a,c,b,s:integer;

begin

clrscr;

write('nhap so thu nhat: ');

readln(a);

write('nhap so thu hai: ');

readln(b);

write('nhap so thu ba: ');

readln(c);

write(a:4,b:4,c:4);{xuat ra 3 so vua nhap}

writeln;

S:= a+b+c;

if S mod 5=0 then

writeln('tong ba so chia het cho 5')

else if S mod 3 = 0 then

writeln('tong ba so chia het cho 3');

readln;

end.


Các câu hỏi tương tự
Huyền Nguyễn
Xem chi tiết
Vũ Ngọc Lan
Xem chi tiết
Machunsu
Xem chi tiết
Hà Văn Tài
Xem chi tiết
van hoan Dao
Xem chi tiết
Phan Thị Khánh Huyền
Xem chi tiết
phạm hương trà
Xem chi tiết
Nguyễn Ngô Hồng Anh
Xem chi tiết
Nguyễn Thành Hiệp
Xem chi tiết