Hãy viết chương trình tính tổng, tích của...">
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.

4 tháng 5 2023

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.

18 tháng 10 2016

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

18 tháng 10 2016

? đây là toán mà

1 tháng 3 2018

Var i , n : integer;

S: real;

Begin

write (' n ='); read (n);

S:= 0

For i:= 1 to n do S:= S+ 1/i;

Write (S);

Readln;

End.

3 tháng 4 2018

program bai1;

var s,n,i:longint;

begin

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

s:=0;

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

write('s= ',s);

readln

end.

27 tháng 2 2018

Var i , n : Integer;

S : real;

Begin

write (' n = ') ; read (n);

S:=0

For i:=1 to n do S:= S + 1/i;

Writeln ( S );

Readln;

End.

3 tháng 4 2018

program bai1;

var i,n,s:longint;

begin

write('N= ');

readln(n);

s:=1;

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

write('s= ',s);

readln

end.

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+1/i;

i:=i+2;

end;

writeln('S=',s:4:2);

readln;

end.

5 tháng 3 2021

Sao s:4:2 vậy?

 

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?A. 8a B. tamgiac C. program D. bai tapCâu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9 Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:A. Các từ khóa...
Đọc tiếp

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. 8a B. tamgiac C. program D. bai tap

Câu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?

A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9

Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:

A. Các từ khóa và tên. B. Bảng chữ cái và các từ khóa.

C. Bảng chữ cái, các từ khóa và tên. D. Bảng chữ cái và các quy tắc.

Câu 4: Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào?

A. (a*a + b)(1+c)(1 + c)(1 + c) B. (a.a + b)(1 + c)(1 + c)(1 + c)

C. (a*a + b)*(1 + c)*(1 + c)*(1 + c) D. (a2 + b)(1 + c)3

Câu 5: Trong Pascal, khai báo nào sau đây là đúng?

A. Var tb : real ; B. Var 4hs: integer ; C. Const x : real ; D. Var R = 30 ;

Câu 6: Trong Pascal, những tên có ý nghĩa được xác định từ trước và không được phép sử dụng cho mục đích khác thì được gọi là:

A. Tên có sẵn B. Tên riêng C. Từ khóa D. Biến

Câu 7: (5.0 điểm)

Viết chương trình nhập vào 2 số a, b từ bàn phím, tính trung bình cộng của hai số a, b và in kết quả ra màn hình.

Giúp mình với nha!

4
24 tháng 10 2016

1B 4C

2A 5A

3C 6C

7.

program TBC;

uses crt;

var a,b,tbc:real;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

tbc:=(a+b):2;

writeln('tbc cua hai so a va b la:',tbc:6:2);

readln;

end.

 

24 tháng 10 2016

dễ mà@@@
 

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.