uses crt;
var i:integer;
begin
clrscr;
write('Cac so le tu 1 den 200 la: ');
writeln; {cách cho đẹp}
for i:=1 to 200 do
if i mod 2 = 0 then write(i:6);
readln
End.
uses crt;
var i:integer;
begin
clrscr;
write('Cac so le tu 1 den 200 la: ');
writeln; {cách cho đẹp}
for i:=1 to 200 do
if i mod 2 = 0 then write(i:6);
readln
End.
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
2.viết chương trình nhập vào số nguyên dương n. A. Tìm và in ra màn hình các số từ 1 đến n chia hết cho 2. .B. tìm và in ra màn hình số từ 1-n ko chia hết cho 2
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?
Giúp tui với mn ơi
Viết chương trình nhập dãy n số nguyên. In ra màn hinh các số chẵn
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3
Viết chương trình in ra màn hình các số từ 1 => n . Sử dụng câu lệnh while..do
thực hiện viết chương trình bằng ngôn ngữ lập trình pascal thực hiện in ra màn hình các chữ cái từ a đến z
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát