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.

15 tháng 3 2019

vòng lặp for

program dfds;

uses crt;

var i,n,m:integer;

begin

clrscr;

write('n=');

readln(n);

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

write('gia tri cua day so M la ',' ',m);

readln;

end.

16 tháng 3 2019

var n,i,s:integer;

begin

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

s:=0;

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

write(s);

readln;

end.

Câu 1: 

1:A

2:C

Câu 1:

3:D

4:C

19 tháng 1 2018

có acc sever dân chơi

22 tháng 1 2018

thang ngu nao ms cho m

31 tháng 5 2019

Có nè mà bạn lp mấy

31 tháng 5 2019

mn nè

7 tháng 9 2017

=]] tớ nà~

nam được khum nà :>>

27 tháng 8 2020

code là j mik ko bt

27 tháng 8 2020

chụp chương trình mà bạn viết ở trên Free Pascal ấy cho mình

18 tháng 12 2019

Bước 1: nhập n

Bước 2: t:=0; i:=0;

Bước 3: nếu i mod 2=0 thì t:=t+i;

Bước 4: i:=i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất t

Bước 7: Kết thúc

19 tháng 12 2019

trog sách có nha bn

Bước 1: nhập n

Bước 2: t:=0; i:=0;

Bước 3: nếu i mod 2=0 thì t:=t+i;

Bước 4: i:=i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất t

Bước 7: Kết thúc

10 tháng 6 2019

dịch:alt+f9;

chạy:ctrl+f9;

11 tháng 6 2019

Trên máy laptop của mình F9 là nút chế độ nghỉ trong thời gian ngắn,nên Alt/Ctrl+F9 ko dịch hay chạy chương trình đc.