uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 700 do
begin
if a<=700 then a:=a+i
else break;
end;
writeln(a);
readln;
end.
Viết chương trình tính tổng sau:A= 1+1/3+1/5+⋯+1/n (với n nhập từ bàn phím) *
Viết chương trình tính tổng n số nguyên tố đầu tiên với n nhập từ bàn phím
Viết chương trình nhập vào 1dãy n số (n được nhập từ bàn phím) tìm giá trị lớn nhất trong dãy vừa lập
viết chương trình thực hiện việc giảm giá cho 1 hiệu sách nếu tổng số tiền lớn hơn 100.000đ thì giảm 10% dưới 100.000đ thì giảm 5%.với tổng số tiền nhập từ bàn phím
Viết chương trình nhập vào 2 số nguyên a và b khác nhau từ bàn phím. So sánh 2 số đó rồi in ra số lớn hơn.
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó.
(mọi người giúp em làm trên pascal với)
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không
2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵn chia hết cho 5 hay không
Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
AI GIÚP MIK BÀI NÀY VS
1) viết chương trình tính tổng 100 số tự nhiên đầu tiên
2. viết chương trình kiểm tra số n nhập từ bàn phím có chia hết cho hai số 2 và 3 không. nếu có thì in ra dòng chữ chia hết và không chia hết
viết chương trình pascal :
- So sánh 2 số nhập từ bàn phím
-Tìm số nhỏ nhất trong 4 số nhập từ bàn phím
-hoán đổi giá trị của 2 biến x, y theo thứ tự không giảm
-in ra kết quả sắp xếp 3 số nhập từ bàn phím theo thứ tự không tăng
