Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Cong Doan
Xem chi tiết
nguyễn an phát
6 tháng 4 2021 lúc 22:25

program day_du_cau_lenh;

uses crt;

var i,n:integer;

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

begin

clrscr;

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

i:=1;

while i<=n do

begin

write('nhap a[',i,']:');readln(a[i]);

i:=i+1;

end;

for i:=1 to n do

if a[i]>=0 then write(a[i]) else write('');

readln;

end.

Quyên
Xem chi tiết
Bé Heo
Xem chi tiết
Smile
12 tháng 5 2021 lúc 19:02

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn.

 

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

Hoạt động: Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị sai ngay từ đầu thì câu lệnh không được thực hiện lần nào. Nếu biểu thức điều kiện luôn nhận giá trị ĐÚNG thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 19:03

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn. Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp.

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 19:04

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

8G_4 Nguyễn Thu Hiền
Xem chi tiết
8G_4 Nguyễn Thu Hiền
15 tháng 5 2022 lúc 14:24

Mọi người ơi, giải giúp mình bài này với ạkhocroi

Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Kiều Vũ Linh
7 tháng 4 2023 lúc 7:19

Var a,b:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

If a > b then write('So lon la ',a:10:2)

Else if b > a then write('So lon la ',b:10:2)

Else write('Hai so bang nhau');

Readln;

End.

Linh Nguyễn
Xem chi tiết
Linh Nguyễn
10 tháng 3 2022 lúc 21:36

sao ko ai ngó ngàng gì đến tui hết zậy ;-;

Lan 038_Trịnh Thị
10 tháng 3 2022 lúc 21:38

sao cj

Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:39

 

 

Câu 8: C

Câu 9: B

Câu 10: D

Câu 11: A

Câu 12: D

Linh Nguyễn
Xem chi tiết
TV Cuber
10 tháng 3 2022 lúc 21:40

tách ra thì mọi ng mới có động lực

Mạnh=_=
10 tháng 3 2022 lúc 21:41

ét ô ét tiếp à

Trương Mai Vân Thy
10 tháng 3 2022 lúc 21:43

vào phòng học đi Linh 

Oni-chan
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:14

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

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

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

Thịnh nguyễn
Xem chi tiết
Ngủ ✰_
18 tháng 3 2022 lúc 9:27

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

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

readln;

end.

₷ųʨ∡
18 tháng 3 2022 lúc 9:28

tham khảo:
 uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

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

readln;

end.

 

Herera Scobion
18 tháng 3 2022 lúc 9:28

python hay pascal bạn ơi

Vũ Điệu Công
Xem chi tiết
Lê Thuỳ Linh
22 tháng 5 2023 lúc 12:22

Program solonhon;

var a,b: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

if a> b then write(a);

if a<b then write(b);

if a=b then write('2 so bang nhau');

readln

end.

Minh Lệ
22 tháng 5 2023 lúc 12:25

Program HOC24;

var a,b: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

if a>b then write(a) else write(b);

readln

end.

Nguyễn Lê Phước Thịnh
22 tháng 5 2023 lúc 12:23

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if a>b then write(a)

else write(b);

readln;

end.