Chịu

thank

var a,b:string;

begin

 write('a = '); readln(a);

write('b = '); readln(b);

if a[2] = b[length(b)-1] then write('Có trùng') else write('Không trùng');

readln

end.

C

=)

Program OLM;

var x,n: integer;

kq: longint;

begin

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

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

kq:=1;

for i:=1 to n do kq:=kq*x;

write(x,'^',n,'=',kq);

readln

end.

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

Giải thích:

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

A

A

Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29

chữ in đậm

thử đi

REFER

*Dạng thiếu:

if <điều kiện> then <câu lệnh>;

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

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

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.

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

– Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối – giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.

Vd:

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

write(‘nhap n:=’);readln(n);

s:=0;

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

writeln(‘tong cua n do tu nhien dau tien la:’,s);

readln

end.

* cú pháp while:

 While <điều kiện> do<câu lệnh>;

– hoạt động:

B1:kiểm tra điều kiện

B2: 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.

Vd:

T:=0;

i:=1;

while i<=100 do begin T:=T+1/i; i:=i+1; end;

writeln(T)

Ý bạn đang nói là gì thế
Mình chả hiểu gì cả