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ình luận (2)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

Bình luận (0)
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???

Bình luận (0)
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;

}

Bình luận (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.

Bình luận (0)
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.

 

 

 

Bình luận (2)
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.

Bình luận (2)
Đặ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.

 

 

       

         

Bình luận (0)
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.

Bình luận (0)
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;

}

Bình luận (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

Bình luận (0)
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.

Bình luận (1)