program fibonacy;
uses crt;
var i,n:integer;
a:array [ 1..1000 ] of integer;
begin
write (' Nhap gioi han cua day so: ');
readln (n);
a[1]:=1;
a[2]:=2;
write (' Day so Fibonacy la: ');
for i:=1 to n do
begin
if i>2 then a[i]:=a[i-1]+a[i-2];
write (a[i]:3];
end;
readln;
end.
Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.
Viết chương trình nhập vào 1 dãy số gồm n phân tử.Hãy in dãy số đó ra màn hình
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
Viết chương trình nhập dãy n số nguyên. In ra màn hinh các số chẵn
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.
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
Viết chương trình nhập dãy số gồm 100 số nguyên và in các số đó ra màn hình ( các số trong dãy số in ra trên một hàng, mỗi số cách nhau 2 kí tự
Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?
Giúp tui với mn ơi
Viết chương trình nhập vào 1 dãy số thực gồm K phần tử. In ra màn hình phần tử nhỏ nhất trong dãy số đó
