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
Cao Ngọc Bảo Quyên
Xem chi tiết
tâm 8a3
Xem chi tiết
Nguyễn Kim Đan
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:37

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

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

write(t);

readln;

end.

Nguyễn Quang Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:39

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2,t3;

int main()

{

cin>>n;

t1=0; t2=0; t3=0;

for (i=1; i<=n; i++)

{

cin>>x;

t1+=x;

if (x%2==0) t2+=x;

else t3+=x;

}

cout<<t1<<" "<<t2<<" "<<t3;

return 0;

}

Alice
Xem chi tiết
39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:12

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Á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.

nguyễn tiến thành
Xem chi tiết
Đặng Phương Linh
28 tháng 3 2023 lúc 5:32

for ... do

program Tinh_S;

uses crt;

var i,n:byte;

     S:longint;

begin

        writeln('Nhap so n='); readln(n);

       S:=0;

       for i:=1 to n do 

           if i mod 2=1 then S:=S+i;

       writeln('Tong cac so le nho hon hoac bang n la, S=',S)

       readln

end.

 

 

 

HT.Phong (9A5)
28 tháng 3 2023 lúc 5:36

* While....do

Uses crt;

var n,i,k: integer;

begin clrscr;

readln(n);

i:=0;

while(i<=n) do begin

i:=i+1;

if(i mod 2<>0) then k:=k+i;

end;

writeln(k);

readln;

end.

* for...do

Uses crt;

var n,i,u: integer;

begin clrscr;

readln(n);

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

writeln(u);

readln;

end.

Đặng Phương Linh
28 tháng 3 2023 lúc 5:36

while... do

program Tinh_P;

uses crt;

var i,n:byte;

      P:longint;

begin

         writeln('Nhap so n='); readln(n);

        P:=0; i:=1;

        while i<=n do

          begin

             if i mod 2=1 then P:=P+i;

             i:=i+1;

          end;

       writeln('Tong so le nho hon hoac bang n la, P=',P);

       readln

end.

 

 

       

         

Nguyễn Thị Tươi
Xem chi tiết