Dãy số \(a_0,a_1,a_2,...a_n\) xác định bằng quy nạp như sau:
\(a_0=1\)
\(a_i=i.a_i-1\)(nếu i chẵn)
\(a_i=i+a_{i-1}\)(nếu i lẻ)
Master nào rảnh giải hộ với, không thì viết giúp mình thuật toán nha :) Thanks
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.
DT
6
K
12 tháng 12 2020
program phuong_trinh;
uses crt;
var a,b:real;
begin
writeln('chuong trinh giai phuong trinh ã+b=0');
write('nhap he so a ='); readln(a);
write('nhap he so b ='); readln(b);
If (a<>0) then writeln('phuong trinh',a:10:2,'x+',b:10:2,'=0',' co nghiem x=;'-b/a:10:2);
If (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');
If (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');
readln
end.
K
9 tháng 12 2020
1,
program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');
If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');
2,, program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If a>b then write('so thu nhat lon hon');
If a<b then write('so thu hai lon hon');
readln
end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...
NG
2
2 tháng 12 2020
Program dien_tích_tamgiac;
Var a , h . Read;
Begin
Write ('nhap a ='); Readln (a);
Write ('nhap chieu h ='); Readln (h);
Writeln ('dien h tam giac la:'S=1/2*a*h:4:2);
Readln;
End.