lập chương trình nhập vào số nguyên dương N .Thông báo ra màn hình N có chia hết cho 5 và chia hết cho k hay ko .với k được nhập vào

thuyduong030397

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

1215251108827081

Program Chia;
Uses crt;
Var n,k: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Write('Nhap k: '); Readln(k);

If (n mod 5=0) and (n mod k=0) then Write(n,' chia het cho 5 va ',k)
Else Write(n,' khong chia het cho 5 va ',k);
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

cuongphamviet873

uses crt;
var n,k:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
if n mod 5=0 then
writeln(n,' chia het cho 5')
else
writeln(n,' khong chia het cho 5');
if n mod k=0 then
writeln(n,' chia het cho ',k)if n mod 5=0 then
writeln(n,' chia het cho 5');
else
writeln(n,' khong chia het cho 5');
else
writeln(n,' khong chia het cho ',k);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

we had our english exam this morning. I hope I' ve .....

juppppppp câu 3, 4 vs ạ mơn người jup nhiều :3

Hãy cho biết các hiện tượng sau đây là hiện tượng gì ? 1)Lưu Huỳnh cháy trong khí oxi tạo thành Lưu Huỳnh đioxit 2)Thủy tinh nóng chảy được thổi thành hình cầu 3)Cồn để trong lọ bị bay hơi 4)Đinh sắt để ngoài không khí bị gỉ 5)Rượu để lâu ngày lên men thành giấm chua

F1=7;F2=10. Hợp lực lớn nhất khi 2 lực ntn?vì sao?

Vẽ ảnh và nêu cách vẽ ảnh của vật AB Neu vị trí và độ cao của ảnh

giúp mình câu c) với ạ ,cho mình hỏi tại sao FD//MN

Dùng to v hoặc Ving đeer viết lại câu

Cho hai giống bí ngô quả dài lai với quả tròn biết rằng F1 thu được toàn quả tròn cho F1 giao phấn với nhau hãy cho biết kết quả kiểu gen và kiểu hình F2 biết rằng các cơ thể đem lai là thuần chủng

các nguyên tố nhóm A trong bảng tuần hoàn có đặc điểm gì chung

Trên tia Ox, lấy hai điểm M,N dao cho ON=2cm,OM=3cm. Tính MN .Trên tia đối của tia PQ lấy điểm K sao cho AK=1cm.Tính PK

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến