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
tâm 8a3
Xem chi tiết
Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

uses crt;

var i,n,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

giàng văn thương
Xem chi tiết
Vương Hương Giang
3 tháng 3 2022 lúc 10:28

lớp 11???

Nguyễn Lê Phước Thịnh
3 tháng 3 2022 lúc 10:28

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if ((x%2==0) or (x%5==0)) dem++;

}

cout<<dem;

return 0;

}

trần hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:52

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

  if sqrt(i)=trunc(sqrt(i)) then t:=t+i;

writeln(t);

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.

 

 

       

         

Trúc Thanh
Xem chi tiết
Minh Lệ
12 tháng 3 2023 lúc 21:48

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Ket qua: ',t);

readln

end.

NT Phú
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:12

1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

s=0;

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

s=s+i*i;

cout<<s;

return 0;

}

Nguyễn Đạt
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 5 2020 lúc 21:22

Đề sai rồi bạn

lê khánh ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 8 2023 lúc 20:20

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

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

readln;

end.