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.
Phần a (1,5 đ)
| Bước 1: Nhập số nguyên dương N | 0,25 |
|---|---|
| Bước 2: S ←0; i ←1 | 0,25 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,5 |
| Bước 4: S ←S+i | 0,25 |
| Bướ c 5: i ← i+1 quay lại bước 3 | 0,25 |
Phần b (1 đ)
| Bước 1: Nhập số nguyên dương N | 0,125 |
|---|---|
| Bước 2: S←0; i←1 | 0,125 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,125 |
| Bước 4: S←S+i | 0,125 |
| Bướ c 5: i← i+2 quay lại bước 3 |
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
Bài 1:
uses crt;
var n,t1,t2,t3,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n-1 do
begin
if i mod 2=1 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so le nho hon ',n,' la: ',t1);
writeln('Tong cac so chan nho hon ',n,' la: ',t2);
t3:=0;
for i:=1 to 2*n do
t3:=t3+i;
writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);
readln;
end.
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.