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.

Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ? Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím) Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím) Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím) Câu 5: viết ct nhập vào 1 dãy số 1 đến n ,...
Đọc tiếp

Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ?

Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím)

Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)

Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)

Câu 5: viết ct nhập vào 1 dãy số 1 đến n , với n là sói nguyên đc nhạp từ bàn phím bé hơn hoặc bằng 100) và lần lượt thực hiện các coing việc sau:

A1, in ra dãy vừa nhập trên 1 hàng ngang , cách nhau 4 kí tự trống

A2, , in ra dãy vừa nhập trên 1 hàng dọc , cách nhau 4 kí tự trống

B, in ra màn hình gtri lớn nhất ,nhỏ nhất của dãy số

C, in ra tổng các phân tử của dãy?

0

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

writeln(t);

readln;

end.

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

10 tháng 4 2021

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

While, do: là các từ khóaĐiều kiện: thường là một phép so sánhCâu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghé
*Câu lệnh này được thực hiện như sau:
- Bước 1: Kiểm tra điều kiện.
- Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1
*Sơ đồ hoạt động:undefined
 

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

Trong đó:

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à một câu lệnh đơn hoặc một câu lệnh ghép

5 tháng 5 2023

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

5 tháng 5 2023

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.