viết chương trình nhập số nguyên N từ bàn phím, thông báo ra màn hình các số nguyên từ 1 đến N, từ N đến 1 ( sử dụng while-do) mọi người giúp em với ạ
1 câu trả lời
program sksk;
uses crt;
var n, i : integer;
begin
clrscr;
i := 0;
write('nhap so n :');readln(n);
write('cac so tu', n ,' den 1 la :');
while i < n do
begin
i := i + 1;
write(i:5);
end;
writeln;writeln;
write('cac so tu 1 den ', n ,' la :');
while n >= 1 do
begin
write(n:5);
n := n - 1 ;
end;
readln
end.
Câu hỏi trong lớp
Xem thêm
