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.
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2<>0 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else begin
for i:=1 to n do
if i mod 2=0 then write(i:4);
end;
readln;
end.
a.
var S,i,n: integer;
begin
writeln ('Nhap so nguyen duong n'); readln(n);
repeat
writeln ('nhap lai'); readln(n);
until (n>=1);
S:=0;
for i:=1 to n do S:=S+ sqr(i);
writeln ('tong la ',S);
readln;
end.
b.
var S,i,n: integer;
begin
writeln ('nhap so nguyen duong n'); readln(n);
repeat
writeln ('nhap lai'); readln(n);
until (n>=1);
S:=0;
for i:= 1 to n do
if i mod 2 = 1 then S: = S+i;
writeln ('tong la ',S);
readln;
end.
(mình không thử nên cũng chưa biết chắc đúng nhưng mong là đúng :))
dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
var S,i,n: integer;
begin
S:=101;
while S<=150 do
begin
writeln ('nhap n'); readln(n);
S:=101;
for i:= 1 to n do S:=S+i;
end;
writeln ('tong la ',S);
readln;
end.
(mình nghĩ vậy, nếu sai cho mình xin lỗi)