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.
b: uses crt;
begin
clrscr;
writeln(sqr(15+5)*sqr(6+4)*(6+4));
readln;
end.
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.
#TK
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
write(s);
readln;
end.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
writeln(s);
readln;
end.
Bài 1: mình làm theo free pascal nhé
Uses crt;
Var i,n,tong:integer;
Begin
CLRSCR;
Writeln('Moi nhap n de tinh tong') Readln(n);
For i:=1 to n do
tong:=tong+i;
Writeln('Tong cua day tren la',tong);
Readln;
End.
Câu 2: mình làm theo Free pascal nhé
Bài Làm:
Uses crt;
Var n,i,tong:integer;
a ARRAY [1..100] of integer;
Begin
CLRSCR;
Writeln('Moi nhap do dai cua mang'); Readln(n);
For i:=1 to n do
Begin
Writeln('a[',i,']');
Readln(a[i]);
End;
tong:=0;
For i:=1 to n do
tong:=tong+a[i];
Writeln('Tong cua day tren la ',tong);
Readln;
End.