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

17 tháng 12 2021

D

7 tháng 8 2021

Win mấy vậy?

7 tháng 8 2021

Win 10 bạn