Question

Viết chương trình nhập vào số nguyên N từ bàn phím, in ra màn hình tích các số chẵn nhỏ hơn hoặc bằng N

Giúp mk với :(((... mai mk thi r :(((

Answer 1

mình cố gắng giải cho bạn, bạn xem có đúng ko

Answer 2

Mình gửi lại cho bạn Mình xin lỗi vì đã làm thiếu

s phải là real nha

vì nhân lên nó có giá trị cao hơn integer nên phải chọn real

Answer 3

Mình sửa lại đây

Answer 4

Học dốt .Câu này mà không làm được

Answer 5

Thích thì chiều ...

Program cxx;

Uses Crt;

Var i,n: integer;

s: real;

Begin

Clrscr;

Write('Nhap n:'); Readln(n);

i:=1;

s:=1;

While i<=n do

Begin

If i mod 2 = 0 then s:=s*i;

i:=i+1;

End;

Writeln(' Tich la:s= ',s)

Readln;

End.