Bài 4: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)
Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần
dư.
Bài 5: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?
Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).
bài 4:
program oken;
uses crt;
var n,i:longint;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
if i mod 2= 0 then write(n,’ ‘);
readln;
end.
bài 5:
program oken;
uses crt;
var n,i,tam:integer;
begin
write(‘nhap n: ‘); readln(n);
for i:=0 to n do
begin
if tam mod 15=0 then writeln;
if i mod 2 = 0 then
begin
write(i:4);
tam:=tam+1;
end;
end;
readln;
end.
Câu 4:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=0 to n do
If i mod 2 = 0 then Write(i,’ ‘);
Readln
End.
Câu 5:
Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
For i:=0 to n do
Begin
If d<>15 then
Begin
Write(i:4);
inc(d);
End
Else
Begin
Writeln;
d:=0;
End;
End;
Readln
End.