viết chương trình tính an biết a[1]=1, a[2]=1, ai=a[i-1]+1 nếu n lẻ, ai=a[i-1]+a[i-2]+...+a[1] nếu i chẵn trong pascal
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
23 tháng 12 2021
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
21 tháng 1 2022
#include <bits/stdc++.h>
using namespace std;
long long i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) if (i%2==0) cout<<i<<" ";
return 0;
}
KV
22 tháng 1 2022
Var n,i,so:integer;
Begin
Write('Nhap n = ');readln(n);
Writeln('Cac so chan tu 1 den n la: ');
For i:=1 to n do
If i mod 2 = 0 then write(i,' ');
Readln;
End.
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
20 tháng 3 2021
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
20 tháng 3 2021
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
4 tháng 8 2023
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.
19 tháng 6 2020
Bài 1:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.