Viết chương trình để xem x chia hết cho 5, 7 Viết chương trình tính tổng số lẻ của n stn đc nhập vào phím

Đáp án & Giải thích:

-chương trình để xem x chia hết cho 5, 7

uses crt;
var x: integer;
begin
clrscr;
write ('Nhap x='); readln(x);
if (x mod 5 = 0) and (x mod 7 = 0) then write ('x chia het cho ca 5 va 7') else
if (x mod 5 = 0) and (x mod 7 <> 0) then write ('x chia het cho 5 nhung khong chia het cho 7') else
if (x mod 5 <> 0) and (x mod 7 = 0) then write ('x chia het cho 7 nhung khong chia het cho 5') else
write ('x khong chia het cho ca 5 va 7');
readln;
end.

-chương trình tính tổng số lẻ của n stn đc nhập vào phím

Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.

Chúc bạn hc tốt nha!