Var i,n,k:integer;
Begin
Write (' nhap n : ');
Readln(n);
For i:= 1 to n do If i mod 2=0 then k:=k+1;
Writeln (' tong so chan la : ',k);
Readln;
end.
Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Có một dòng văn bản dài không quá 255 kí tự. Hãy lập trình thực hiện:
a. Đếm số từ có trong dòng văn bản.
b. Đếm xem trong dòng văn bản có bao nhiêu từ bắt đầu bằng một chữ cái cho trước được nhập vào từ bàn phím.
cho số tự nhiên a được nhập từ bàn phím,hãy kiểm tra xem a là số chẵn hay lẻ
a)xác định bài toán
b)mô tả thuật toán
c)viết chương trình bằng ngôn ngữ lập trình pascal
nhanh nha đang gấp mai phải nộp rồi/thanks nhiều
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập một số tự nhiên từ bàn phím và thông
báo ra màn hình kết quả số đã nhập là chẵn hay lẻ?
Viết phương trình Pascal nhập các phân tử có 1 dãy số và đếm xem có bao nhiêu phần tử chia hết 3
Dùng vòng lặp không xác định đếm xem có bao nhiêu số lẻ \(\le\) n
viết chương trình nhập vào 1 dãy số gồm n phần tử kiểu số nguyên
a In dãy số ra màn hình. Tính và in tổng các phần tử là chẵn của dãy số
b đếm xem có bao nhiêu số chẵn bao nhiêu số lẻ bao nhiêu số âm bao nhiêu số dương
viết chương trình in ra màn hình các số từ a đến b là số chẵn và chia hết cho 3 đếm xem có tất cả bao nhiêu số với a,b được nhập vào bàn phím