uses crt;
var i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
i:=0;
while i<=20 do
begin
i:=i+1;
if i mod 2=0 then t1:=t1+i
else t2:=t2+i;
end;
writeln(t1);
writeln(t2);
readln;
end.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0. Tính tổng các số chẵn, tổng các só lẻ đã nhập, rồi in kết quả ra màn hình?
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số lẻ trong phạm vi từ 1 dến N, sau đó in ra màn hình.
NHẬP N IN RA CÁC TỔNG CÁC SỐ CHẴN TỪ 1 ĐẾN N ;; SỬ DỤNG CÂU LỆNH WHILE DO
viết chương trình nhập vào bàn phím số nguyên dưng N,sử dụng câu lệnh điều kiện để tính số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình
Sử dụng vòng lập For...do
+ Nhập vào sô nguyên dương N(N <15)
+ In ra màn hình các số lẻ từ 2 -> N
+ Tính tổng các số chẵn vừa in ra
Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)
Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình.
