Tin học Tính Tổng S=1+3+…+75 viết chương trình 15/07/2021 By Harper Tính Tổng S=1+3+…+75 viết chương trình
uses crt; var i,s: integer; begin clrscr; for i:=1 to 75 do if i mod 2<>0 then s:=s+i; writeln (‘tong la: ‘,s); readln; end. Trả lời
uses crt;
var i,s: integer;
begin
clrscr;
for i:=1 to 75 do
if i mod 2<>0 then s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
uses crt;
var t:integer;
begin
clrscr;
t:=(75+1)*38/2;
writeln(‘tong la: ‘,t);
readln;
end.