Xem chi tiết
TQ
Xem chi tiết
HN
27 tháng 12 2016 lúc 17:57

Bước 1. Nhập N

Bước 2. \(i\leftarrow0\) , \(S\leftarrow0\)

Bước 3. \(i\leftarrow i+1\)

Bước 3. 3.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.

3.2 \(S\leftarrow S+i^2\) rồi quay lại bước 3

Bình luận (0)
PT
6 tháng 4 2017 lúc 22:57

t:=0;

{ tổng ban đầu bằng 0 }

for i:=1 to n do t:=t+sqr(i);

{ duyệt từ i:=1 tới N, tổng:=tổng+bình phương của i }

write(t);

{ in ra màn hình tổng dãy số }

Bình luận (0)
PT
11 tháng 10 2021 lúc 8:45

Bước 1. Nhập N

Bước 2. i←0i←0 , S←0S←0

Bước 3. i←i+1i←i+1

Bước 3. 3.1 Nếu i>Ni>N thì kết thúc thuật toán và đưa ra kết quả.

3.2 S←S+i2S←S+i2 rồi quay lại bước 3

Bình luận (0)
LQ
Xem chi tiết
DD
8 tháng 2 2017 lúc 18:49

Sai.
Vì Tin học là một ngành khoa học không ngừng phát triển và máy tính chỉ là 1 công cụ được sáng tạo ra để hỗ trợ cho việc nghiên cứu tin học.

Bình luận (0)
NN
Xem chi tiết
HN
27 tháng 12 2016 lúc 17:51

Bài 1.

Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)

Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)

Bước 3. \(i\leftarrow i+1\)

Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.

4.2 \(a_i\ge0\) thì quay lại bước 3

4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3

Bình luận (3)
KG
12 tháng 12 2021 lúc 9:31

Viết thuật toán tính tổng các phần tử bằng 0

Bình luận (0)
YH
Xem chi tiết
NG
Xem chi tiết
VN
5 tháng 4 2017 lúc 11:15

chữ màu vàng ở khung lịch sữ

ko thể vào cốc cốc

giúp mình nha

Bình luận (0)
QD
Xem chi tiết
H24
Xem chi tiết
PN
15 tháng 11 2016 lúc 13:59

Program So_nguyen;

uses crt;

Var a,b,t:integer;

Begin

clrscr;

Writeln(' Nhap 2 so nguyen a va b:');

if a>b then t:= a-b;

if a<b then t:=b-a;

if a=b then t:=0;

Writeln(' Ket qua la',t);

Readln;

End.

Bình luận (0)
TN
31 tháng 10 2016 lúc 17:23

hahahiuhiuleuleu

Bình luận (0)
TN
Xem chi tiết
VT
25 tháng 10 2016 lúc 10:38

5 phần mềm máy tính :

+ Word .

+ Excel

+ PowerPoint

+ Pascal

+ Mario

Bình luận (0)
PN
25 tháng 10 2016 lúc 13:58

Phần Mềm Office

Phần Mềm Download

Phần Mềm Chat

Phần mềm Word

Phầm mềm Excel

Bình luận (0)
PL
12 tháng 3 2018 lúc 20:05

Visual

Basic

ASP

MS Word

NC

Bình luận (0)
TD
Xem chi tiết
TD
23 tháng 10 2016 lúc 19:46

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

Bình luận (0)
TR
23 tháng 10 2016 lúc 20:03

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.

 

Bình luận (10)