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.

26 tháng 2 2021

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

Không đúng nha bạn

20 tháng 10 2018

chắc có hoặc ko?

20 tháng 10 2018

ha

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60      Nhập chương trình :       uses crt;       var N,I:integer;       begin                clrscr;                 write (Nhap so N='); readln(N);                writeln;                writeln('Bang nhan',N);                writeln;                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);               readlnend                                                            Câu hỏi ôn tập: a. Sau khi...
Đọc tiếp

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1
23 tháng 2 2021

b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100

c)

Nhân từ 10 đến 100

18 tháng 3 2021

Giúp mình vs

18 tháng 3 2021

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

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

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v

1 tháng 5 2020

a)

uses crt; ----> Khai báo thư viện có tên crt

var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)

begin ----> Bắt đầu chương trình chính

clrscr; ----> Xóa toàn bộ màn hình

write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen

readln(n); ----> Nhập giá trị cho biến n

if n<=1 then writeln(n,' khong la so nguyen to')

----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to

else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)

begin ----> Khởi tạo tạo khối chương trình phụ

i:=2; ----> Gán biến i có giá trị bằng 2

while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị

if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to

else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to

end; ----> Kết thúc khối chương trình phụ

readln ----> Đọc ra màn hình

end. ----> Kết thúc chương trình chính

b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to

c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to