Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
nguyễn duy manhj
Xem chi tiết
Dark_Hole
16 tháng 2 2022 lúc 9:20

Viết chương trình tính tổng các số chẵn từ 1->n

Uses CRT;

Var i,n,s:integer;

Begin clrscr;

 

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Viết chương trình tính tổng các số lẻ từ 1->n

program bai1;

var s,i,n:longint;

begin write('N= ');

readln(n); s:=0;

for i:=1 to n do if i mod 2<>0 then s:=s+i;

write('s= ',s);

readln

end.

Chúc em học tốt

Ánh sao
Xem chi tiết
Phạm Nguyễn Hồng Anh
28 tháng 2 2021 lúc 16:45

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 19:17

*Cách khác: Dùng for

Câu 1: 

uses crt;

var p,i:longint;

begin

p:=1;

for i:=1 to 4 do 

  p:=p*i;

writeln(p);

readln;

end.

Câu 2: 

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

phamhaininh
Xem chi tiết
Nguyễn Quang Tùng
18 tháng 10 2016 lúc 17:45

Kết quả bằng 0.

kick cho mình nha

kudokaito
14 tháng 10 2016 lúc 20:09

KET QUA LA 0

Tran Tuan Anh
11 tháng 12 2016 lúc 19:45

ket pua la 0

Mai Thị Lam Oanh
Xem chi tiết
Nguyễn Đoàn Trường Sơn
Xem chi tiết
Đỗ Tuệ Lâm
14 tháng 2 2022 lúc 11:11

undefined

nguyễn anh thông
Xem chi tiết
GP 1000 Điểm hỏi đáp 100...
8 tháng 9 2016 lúc 19:29

đề thiếu trầm trọng

Lê Bích Thủy
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 14:08

{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN 
  clrscr;
  Write('Nhap n:');Readln(n);
  C:=0;L:=0;
  For i:=1 to n do
    If i mod 2=0 then C:=C+i else L:=L+i;
  writeln('Tong cac so chan la:',C);
  writeln ('Tong cac so le la:',L);
  Readln;
end.  
}

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
28 tháng 8 2018 lúc 10:38

+ Tập hợp D = {21 ; 23 ; 25 ;……. ; 99} là tập hợp các số lẻ từ 21 đến 99

Nên D có (99 – 21) : 2 + 1 = 78 : 2 + 1 = 39 + 1 = 40 (phần tử).

+ Tập hợp E = {32 ; 34 ; 36 ; … ; 96} là tập hợp các số chẵn từ 32 đến 96

Nên E có (96 – 32) : 2 + 1 = 64 : 2 + 1 = 32 + 1 = 33 (phần tử).

hoang thanh son
Xem chi tiết
hoang thanh son
26 tháng 4 2016 lúc 15:57

kem nhau 0