Question

Giải giúp mk bài này vs ạ mơn nhìu

1:viết chương trình nhập vào n,sau đó tính tích các số chia hết cho 2 từ 1 đến n

2:viết chương trình nhập vào 5 số nguyên rồi tìm max đó.chỉ sử dụng 3 biến

Answer 1

Giúp mk vs ạ ❤❤

Mk cần gấp😭

Answer 2

Lời giải :

Bài 1:

program hotrotinhoc ;

var n,i,tich : integer ;

begin

write('Nhap n'); readln(n);

tich:=1;

for i:= 1 to n do

if i mod 2 = 0 then tich := tich * i ;

write('Tich cac so chia het cho 2 la: ',tich);

readln

end.

Bài 2:

program hotrotinhoc ;

var a: array[1..10] of integer ;

i,max : integer ;

begin

for i:= 1 to 5 do

begin

write('So nguyen thu ',i,':'); readln(a[i]);

end;

max := a[1] ;

for i:= 2 to 5 do

if max < a[i] then max:=a[i] ;

write('So lon nhat la',max);

readln

end.