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.
b)
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;
a:=1;
for i:=1 to 35 do
begin
s:=s+a;
a:=a+3;
end;
writeln('So vien keo la: ',s);
readln;
end.
var n,a,b,c,i:longint;
begin
write('Nhap n:');readln(n);
a:=1; b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
if (n=1) or (n=2) then c:=1;
write('So fibonacci thu',n,'la:',c);
readln
end.
Bước 1: Nhập số n (n là số tự nhiên)
Bước 2: Xét số dư khi chia n cho 2
Bước 3: Nếu số dư là 1 thì ghi ra màn hình n là số lẻ, ngược lại thì ghi ra màn hình n không là số lẻ
Bước 4: Kết thúc
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
program bai_giai;
uses crt;
var tho,ga:integer;
begin
clrscr;
for tho:=0 to 43 do
begin
ga:=43-tho;
if ga*2+tho*4=100 then writeln(ga,' con ga va ',tho,' con tho');
end;
readln;
end.
đây là hình minh họa