Tính Toán Với Số Nguyên Trên Pascal

[thong12]

bạn nào giỏi pascal thì giúp mình tí nha, mình dỡ pascal lắm nên giải rồi các ban nhứng dẫn cho mình luôn nha ^^'
bài 1
nhập vào số N nguyên, sau dó nhập tiếp dãy số , hãy thực hiện việc tính tích các số hạng và đưa ra kết quả
VD: nhập vào số N=5
tiếp tuc nhap vào dãy số : 10 , 20, 30 , -27 ,-36
may se tinh kết quả 10*20*30*-27*-36 và đưa ra màn hình kết quả
nếu nhập N=4 nhưng nhập vào 10, 20, 30, 40, 50 máy chỉ tính 10*20*30*40 và đưa ra kết quả
bài 2
nhập vào 2 số a, b và 4 phép tính +, -, *, /
hãy hiển thị kết quả phép tính đã nhập vào
VD: nhạp vào 12 + 2
máy sẽ tính 12 + 2 =14 và hện kết quả" 12 + 2 = 14"
bài 3
tìm 1 số có 5 cưử số
số hàng trăm là 5
số hàng ngàn gấp đôi số hàng chục
số hàng chục gấp đôi số hàng dơn vị
tìm số đó
các bạn giúp mình giải nha

[thong12]

àh mình quên bài 3 còn thiếu 1 dữ kiện là tổng của 5 số là 20

[grenadier1991]

Bài 3: Số của bạn có dạng 2a.2b.5.a.b (với a;b<=4)
2a+2b+5+a+b=20
<=>3(a+b)=15
<=>a+b=5
=>có các bộ (a, b) như sau: (1;4);(2;3);(3;2);(4;1) là 4 bộ. Vậy có 4 số
28514; 46523; 64532; 82541
Làm tay còn nhanh hơn, tội khỉ gì lại làm = Pascal.

[thong12]

trời đây là đề làm pascal của mình mà, mình hỏi vì không biết phải viết bằng pascal như thế nào
nhưng củng cám ơn bạn đã giúp

[alucar]

program vd;
var a:array[1..5] of real;
var i,n:word;
s:real;
begin
write('Nhap so n ');
read(n);
s:=1;
for i:=1 to n do
begin
write('Nhap so thu ',i,' ');
read(a[i]);
end;
for i:=1 to n-1 do { nếu tổng 4 số : 5 số thì bỏ -1 đi }
begin
s:=s*a[i];
end;
write(s:10:0);
readln;
readln;
end.
ok nè :D