Câu 13:
- Biến đếm: i
- Giá trị đầu: 2
- Giá trị cuối: 40
- Câu lệnh: if (i mod 3 = 0) and (i mod 2 = 0) then write(i, ' ');
- Kết quả: 6 12 18 24 30 36
Câu 14:
uses crt;
var val,i: longint; stri,res: string;
begin
clrscr;
write('Nhap vao mot so: ');
readln(val);
str(val, stri);
for i:=length(stri) downto 1 do
res:=res+stri[i];
write('Ket qua: ', res);
readln;
end.