Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay ko , thông báo kết quả ra màn hình
Viết chương trình nhập vào 1dãy n số (n được nhập từ bàn phím) tìm giá trị lớn nhất trong dãy vừa lập
Câu1 viết chương trình nhập giá trị n từ ban phím in các số chẵn từ 1 đến n Câu2 viết chương trình in ra màn hình các số chẵn đầu tiên với chẵn nhỏ nhất >1000 Lm ơn tui sắp kiểm tra r
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n
+các số chính phương từ 0 đến n
+các số hoàn hảo từ 1 đến n
Làm giúp mình với!!!
Viết chương trình nhập vào 2 số d và b từ bàn phím xuất xuất ra màn hình số a nếu a>b ngược lại xảy ra b