Question

Viết chương trình đưa ra màn hình các số nguyên lẻ từ 1 đến N , tính tổng các số nguyên lẻ

Answer 1

quá dễ

uses crt;

var i,n,t:integer;

begin

clrscr;

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

t:=0;

writeln('cac so nguyen le trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=1 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('tong cac so nguyen le trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

Answer 2

Program hotrotinhoc;

var n,d: integer;

tb: longint;

tbc: real;

begin

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

tb:=n; d:=0;

while n<>0 do

begin

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

inc(d);

tb:=tb+n;

end;

tbc:=tb/d;

write(tbc:2:2);

readln

end.