K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Uses crt;

Var

S,i,n:Integer;

a:array[1..100] of integer;

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.

12 tháng 3 2019

mình thách bạn cũng với đề ấy trong chương trình scratch

5 tháng 5 2019

chịu nạ

11 tháng 2 2021

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

 

 

11 tháng 2 2021

program chia_n;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

Write('Hay nhap so n ');readln(n);

s:=0;

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

writeln('Tong la ',s:1:2);

readln;

end.

nhớ tick cho mik nha!

3 tháng 10 2018

Bài 1 :

- Giống nhau:

+Biến và hằng điều là đại lượng lưu trữ dữ liệu.

+Hai đại lượng này phải khai báo mới sử dụng được.

Khác nhau:

- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.

- Cách khai báo biến:

Var<tên biến>:<kiểu dữ liệu>;

VD: Var a,b:integer;

C:string;

-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.

_ Cách khai báo hằng:

const <tên hằng>=<giá trị của hằng>;

VD: Const pi=3.14;

3 tháng 10 2018

Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.

20 tháng 1 2017

       các số tự nhiên chẵn < 10000 là:

0; 2; 4; 6;...; 9998

    Số số hạng của dãy là:

  ( 9998- 0) : 2 +1 = 5000 ( số hạng)

  Tổng dãy trên là:

  ( 9998 +0) x 5000 : 2 =  24995000