Question

[Đặng Thị Ngọc Vân]

Answer 1

[Nguyễn Lê Phước Thịnh]

a: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

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

write(s);

readln;

end.

b: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

for i:=1 to 80 do

if i mod 2=0 then s:=s+i;

write(s);

readln;

end.

Answer 2

[Đặng Thị Ngọc Vân]

là sao ạ, mk giải hộ bt cho ngta:))