uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so so chan trong day la: ',dem);
readln;
end.
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
Viết chương trình nhập vào một số nguyên từ bàn phím in ra màn hình kết quả bảng cửu chương của số nguyên...
HELP. ME.
Viết chương trình điểm kiểm tra cho môn toán của 35học sinh và in ra màn hình với số học sinh và điểm kiểm tra nhập từ bàn phím (sử dụng kiểu mảng)
in ra các số lẻ chia hết cho 3trong khoảng từ m đến n với m,n nhập từ bàn phím
Câu 1 :Đoạn lệnh sau đây làm nhiệm vụ gì ?
For := 1 to 5 do
Write ('A')
Câu 2 : Tìm lỗi sai trong chương trình sau :
Var : i : real
Begin :
For i := 1 to 100 do
End
Câu 3 : Viết chương trình in ra màn hình tổng của n số tự nhiên đầu tiên ( N nhập từ bàn phím )
#Helpme ?
viết chương trình đếm số dương trong dãy n số nguyên
1. Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của
một tam giác VUÔNG hay không ? Thông báo lên màn hình kết quả kiểm tra.
2. Viết chương trình in ra tất cả các ước chẵn của một số n (Với n được nhập từ bàn
phím)
3. In bảng cửu chương 2n
4. Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số lẻ từ 0
đến N.
5. Nhập 4 số nguyên a, b, c, d từ bàn phím, in ra số lớn nhất.
MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN
Viết chương trình nhập dãy số a gồm n phần tử (3<=n<=120)
a)In ra màn hình số lớn thứ m(m nhập từ bàn phím và 1<=m<=n)
b)Chọn các số sao cho có tổng của chúng lớn nhất theo nguyên tắc không chọn 3 số liên tiếp nhau trong dãy .In ra màn hình tổng và vị trí các số đã chọn.
giúp mình vs viết trên pascal nhá!
Cho dãy số 2;5;8;11;... Viết Chương trình yêu cầu nhập số nguyên N từ bàn phím tính tích E sau đó in kết quả ra màn hình E=2.5.8.11....n
