$1,$

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.

(Câu lệch if khá dài nên không dùng dấu phẩy)

${2},$

program baitap;
uses crt;
var n,i,s:integer;
begin
clrscr;
writeln('nhap n');read(n);
s:=0;
i:=0;
for i:=i+1 to n do 
begin
If i mod 2<>0 then s:=s+i;
end; 
writeln('tong cac so le la ',s);
readln
end

Đá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!