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.

20 tháng 3 2020

Câu hỏi của Xuân Thành - Tin học lớp 8 | Học trực tuyến

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('S=',s);

readln;

end.