Bài này không dùng while do được
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
Viết chương trình sử dụng lệnh lặp While...do để tính tổng các số tự nhiên từ 1 đến 100
viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy
viết chương trình nhập vào từ bàn phím 3 số nguyên bất kì.In ra màn hình trung bình cộng của 3 số đó
viết chương trình nhập vào 1 dãy số gồm 5 số nguyên bất kì từ bàn phím hiển thị 5 số đó theo hàng dọc
viết chương trình pascl nhập vào ba số a, b, c và in ra màn hình tích cảu ba số đó ? ( với a b c là số nguyên bất kì được nhập từ bàn phím )
cảm ơn mọi người rất nhiều
Viết chương trình nhập hai số nguyên a,b bất kỳ từ bàn phím. Tính tích, thương của 2 số nguyên vừa nhập
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lể có trong dãy.
Viết chương trình viết tiền điện hàng tháng với đơn giá 1kw=2000₫. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím
Viết chương trình tính tiền điện hàng tháng với đơn giá
1Kw = 2000đ. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím.
