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.

18 tháng 12 2022

a. X=14
b. ủa đề lag z :) cho X vs Y rồi bảo tổng A, B
Var Z:=A+B;
c. X=35
d. c=9
e. 20+5= 25

13 tháng 11 2021

a: Khai báo

b: số thực

12 tháng 1 2022

giúp lol😂 

a) Sai 

b) Sai

c) đúng

d) đúng

*Câu lệnh For..do

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

*Câu lệnh For..do

Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

28 tháng 2 2022

 

Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

 

28 tháng 2 2022

Ngắn gọn đc ko ạ