Question

Câu 1: Nhập n là số dương kiểm tra có bao nhiêu số chẵn, số lẻ. In ra màn hình

Câu 2: Nhập n số nguyên tính tích của chúng. In ra kết quả đó

Answer 1

program nts;
uses crt;
var a: array[-10000..10000] of integer;
n,i,s:longint;
begin
clrscr;
write('nhap so cac so nguyen:'); readln(n);
s:=1;
for i:=1 to n do
begin
write('nhap so thu ',i,'='); readln(a[i]); s:=s*a[i];
end;
write('tich cac so da nhap la: ',s);
readln;
end.

nếu tích n số đầu tiên thì sẽ khác nhé

Answer 2

uses crt;

var n,i,d,k:integer;

begin

clrscr;

writeln('nhap vao so n');readln(n);

for i:=1 to n do

begin

if i mod 2=0 then d:=d+1;

if i mod 2=1 then k:=k+1;end;

writeln('so cac so chan la:',d:4);

writeln('so cac so le la:',k:4);readln;end.

Answer 3

do la cau mot con bai hai to se gui sau