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.

16 tháng 6 2021

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.

23 tháng 7 2017

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
18 tháng 12 2022

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.

7 tháng 2 2023

 

D
datcoder
CTVVIP
30 tháng 1

Đề chưa rõ ràng bạn xem lại đề nha.

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.