uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
Viết chương trình tính tích các số chẵn của số nguyên N nhập từ bàn phím sau đó in kết quả ra màn hình
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
