Những câu hỏi liên quan
CD
Xem chi tiết
NP
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.

Bình luận (0)
H24
Xem chi tiết
BH
Xem chi tiết
H24
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.

Bình luận (0)
NT
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.

Bình luận (0)
NT
12 tháng 5 2021 lúc 19:04

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

Bình luận (0)
8H
Xem chi tiết
8H
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

Bình luận (0)
NC
Xem chi tiết
KL
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.

Bình luận (2)
LN
Xem chi tiết
LN
10 tháng 3 2022 lúc 21:36

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

Bình luận (1)
LT
10 tháng 3 2022 lúc 21:38

sao cj

Bình luận (1)
NT
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

Bình luận (0)
LN
Xem chi tiết
TC
10 tháng 3 2022 lúc 21:40

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

Bình luận (0)
H24
10 tháng 3 2022 lúc 21:41

ét ô ét tiếp à

Bình luận (0)
TT
10 tháng 3 2022 lúc 21:43

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

Bình luận (2)
OC
Xem chi tiết
NT
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>;

Bình luận (1)
TN
Xem chi tiết
H24
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.

Bình luận (5)
H24
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.

 

Bình luận (1)
HS
18 tháng 3 2022 lúc 9:28

python hay pascal bạn ơi

Bình luận (1)
VC
Xem chi tiết
LL
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.

Bình luận (0)
ML
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.

Bình luận (2)
NT
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.

Bình luận (0)