Question

1/ Viết CT lọc ra các số tự nhiên lẻ nhỏ hơn hoặc bằng N.

2/Viết CT bảng cửu chương với bảng cửu chương nhập từ bàn phím.

Mk đg cần gấp. M.n giúp mk vs ....

Answer 1

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

Answer 2

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

Answer 3

program bang_cuu_chuong;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('nhap n:');readln(n);

s:=0;

for i:=1 to 10 do

writeln(n,' x',i:2,' = ',n*i:2);

readln;

end.

Answer 4

2/

program bang_cuu_chuong

uses crt;

var n,i:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to 10 do

writeln(n,' x',i:2,' = ',n*i:2);

readln;

end.