Thực hiện viết chương trình: 1: Tính tổng các số từ M -> N 2: Kiểm tra 1 số nguyên nhập từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết (yêu cầu sử dụng CTC để viết) Mong được giúp đỡ và giải đáp chi tiết
1 câu trả lời
1:
uses crt;
var n,m,s:integer;
begin
clrscr;
readln(m,n);
for m:=m to n do
inc(s,m);
writeln('Tong: ', s);
end.
=================
2:
uses crt;
var n,i:integer;
function kiemtra(a:integer):integer;
begin
if a>0 then writeln(a, ' la so duong.')
else if a < 0 then writeln(a, ' la so am.')
else writeln('Khong la so am, so duong.');
if a mod 2 = 0 then writeln(a, ' la so chan.')
else writeln(a, ' la so le.');
writeln('Chia het cho: ');
for i:= 1 to a do
if a mod i = 0 then write(i, ' ');
end;
begin
clrscr;
readln(n);
kiemtra(n);
end.
