K
Khách

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.

3 tháng 4 2023

Câu lệnh for ... do 

program Tinh_Tich;

var

     n, i: integer;

     S: double;

begin

     write('Nhap vao so nguyen N: ');

     readln(n);

     S := 1;

     for i := 7 to n do

     begin

          S := S * i * i * i;

     end;

     writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);

     readln;

end.

Câu lệnh while .... do

program Tinh_Tich;

var

     n, i: integer;

     S: double;

begin

     write('Nhap vao so nguyen N: ');

     readln(n);

     S := 1;

     i := 7;

     while (i <= n) do

     begin

          S := S * i * i * i;

          i := i + 1;

     end;

     writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);

     readln;

end.

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

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

write(s);

Readln;

End.

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

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

write(s);

Readln;

End.

27 tháng 5 2021

program tinh_tong;

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

for i:=1 to n*2-1 do

if i mod 2=1 then s:=s+1/i;

writeln('tong la: ',s);

readln;

end.

27 tháng 5 2021

program tinh_tong;

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

i:=1;

while i<=n*2-1 do

begin

s:=s+1/i;

i:=i+2;

end;

writeln('tong la: ',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.

21 tháng 3 2021

lệnh for...to...do:

a)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

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

  write(s);

readln;

end.

b)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  for i:=1 to 14 do

begin

if i mod 2=0 then

s:=s+i;

end;

  write(s);

readln;

end.

c)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  for i:=1 to 15 do

begin

if i mod 2=1 then

s:=s+i;

end;

  write(s);

readln;

end.

lệnh while...do

a)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=9 do

begin

  s:=s+i;

i:=i+1;

end;

  write(s);

readln;

end.

b)program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=14 do

begin

if i mod 2=0 then

  s:=s+i

else i:=i+1;

end;

  write(s);

readln;

end.

c)

program tinh_tong;

uses crt;

var i,s:byte;

begin

  clrscr;

  s:=0;

  i:=1;

while i<=15 do

begin

if i mod 2=1 then

  s:=s+i

else i:=i+1;

end;

  write(s);

readln;

end.

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

27 tháng 5 2021

program tong_for_to_do;

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

t:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+1/i;

writeln('tong la: ',t);

readln;

end.

27 tháng 5 2021

program tong_while_do;

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

t:=0;i:=3;

while i<=3*n do

begin

t:=t+1/i;

i:=i+3;

end;

writeln('tong la: ',t);

readln;

end.

10 tháng 4 2021

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)
undefinedundefined

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.

7 tháng 3 2023

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.

24 tháng 3 2023

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.

7 tháng 3 2023

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

7 tháng 3 2023

Viết chương trình pascal for to do để tính tổng S=2+4+6+...+n. N là số nguyên nhập từ bàn phím