Em hay viết các câu lệnh để đưa ra màn hình các số tự nhiên từ 1 đến 100
|
Program BTH;uses crt;var i:byte;Begin clrscr; For i:=1 to 10 do writeln(i); readln; end.
D. Hoạt động vận dụngHãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10
Uses crt; Var S, i: integer; Begin clrscr; S : = 0; for i:=1 to 10 do S := S + i; writeln (S); readln; end.
Viết chương trình in ra màn hình các số nguyên từ 1 đến 100 cứ 10 số thì xuống dòng Các câu hỏi tương tự
Viết chương trình và in ra màn hình các số chẵn từ 1 đến n , n là số tự nhiên nhập từ bàn phím. Các câu hỏi tương tự |
