Phần mềm học tập

TN
Xem chi tiết
H24
Xem chi tiết
NT
9 tháng 4 2022 lúc 10:03

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

cout<<a[i]<<" ";

cout<<endl;

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
TT
Xem chi tiết
DL
26 tháng 4 2022 lúc 20:57

Program chiaqua;

Uses crt;

Var n,i,a:Longint;

S:INT64;

 

Begin

Clrscr;

 

Write('So em thieu nhi = ');

 

Readln(n);

 

S:=1; a:=1;

For i:=2 to n do

 

Begin

 

a:=a+3;

S:=S+a;

 

End;

 

Write('So goi qua chuan bi = ',S); Readln;

Bình luận (1)
TT
Xem chi tiết
HM
Xem chi tiết
NT
5 tháng 4 2022 lúc 14:53

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
P8
Xem chi tiết
NT
30 tháng 3 2022 lúc 20:26

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
LT
Xem chi tiết
H24
27 tháng 3 2022 lúc 19:22

2500

Bình luận (0)
TG
27 tháng 3 2022 lúc 19:22

A = (1 + 100) + (2 + 99) + (3 + 98) + ... + (50 + 51) = 101 + 101 + ... + 101 = 50 x 101 = 5050.

Cre:gg

(=

Bình luận (0)
ML
28 tháng 3 2022 lúc 5:53

Program HOC24;

var i,t: integer;

begin

t:=0;

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

write(t);

readln

end.

Bình luận (0)
NH
Xem chi tiết
KL
27 tháng 3 2022 lúc 10:26

while <điều kiện> do <câu lệnh>;

Bình luận (0)
CD
16 tháng 2 2023 lúc 21:49

While <ĐK> do <câu lệnh> ;

Bình luận (0)
DN
Xem chi tiết
NT
22 tháng 3 2022 lúc 18:12

Cú pháp: while <điều kiện> do <câu lệnh>;

Giải thích:

While, do là các từ khóa

điều kiện thường là một phép so sánh

câu lệnh có thể là câu lệnh đơn hoặc câu lệnh kép

Bình luận (0)
US
Xem chi tiết
HV
18 tháng 3 2022 lúc 15:05

đen thui

Bình luận (0)
TL
18 tháng 3 2022 lúc 15:08

đen như zại ai mè giải đựt ạ, khum nhìn thấy chữ gì lun ạ

Bình luận (0)
NT
18 tháng 3 2022 lúc 16:19

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=20 do 

 begin

n:=n+2;

t:=t+n;

end;

writeln(t);

readln;

end.

Bình luận (0)