viết chương trình pascal nhập n xuất ra màn hình
dòng 1. các số chẵn từ 2 đến n
dòng 2. các số lẻ từ 2 đến n
dòng 3. các số chẵn và chia hết cho cả 3 và 6 từ 1 đến n
dòng 4. tổng các số lẻ từ 1 đến n
giúp mình vs
viết chương trình pascal nhập n xuất ra màn hình
dòng 1. các số chẵn từ 2 đến n
dòng 2. các số lẻ từ 2 đến n
dòng 3. các số chẵn và chia hết cho cả 3 và 6 từ 1 đến n
dòng 4. tổng các số lẻ từ 1 đến n
giúp mình vs
uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
write(‘Cac so chan tu 2 den ‘,n,’: ‘);
for i:=2 to n do
if (i mod 2=0) then write(i,’ ‘);writeln;
write(‘Cac so le tu 2 den ‘,n,’: ‘);
for i:=2 to n do
if (i mod 2=1) then write(i,’ ‘); writeln;
write(‘Cac so chan ma chia het cho ca 3 va 6 tu 1 den ‘,n,’: ‘);
for i:=1 to n do
if (i mod 2=0) and (i mod 3=0) and (i mod 6=0) then
write(i,’ ‘);writeln;
for i:=1 to n do
if (i mod 2=1) then inc(s,i);
writeln(‘Tong cac so le tu 1 den ‘,n,’: ‘,s);
readln;
end.
Program BTT;
Uses crt;
Var n,i,t: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
Write(‘Cac so chan tu 2 -> ‘,n,’ la: ‘);
For i:=2 to n do
If i mod 2 = 0 then Write(i,’ ‘);
Writeln;
Write(‘Cac so le tu 2 -> ‘,n,’ la: ‘);
For i:=2 to n do
If i mod 2 = 1 then Write(i,’ ‘);
Writeln;
Write(‘Cac so chan chia het cho 3 va 6 tu 1 -> ‘,n,’ la: ‘);
For i:=1 to n do
If (i mod 2 = 0) and (i mod 3 = 0) and (i mod 6 = 0) then Write(i,’ ‘);
Writeln;
t:=0;
For i:=1 to n do
If i mod 2 = 1 then t:=t+i;
Write(‘Tong cac so le tu 1 -> ‘,n,’ la: ‘,t);
Readln
End.