Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trí Cao
Xem chi tiết
Kiều Vũ Linh
17 tháng 3 2022 lúc 9:18

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

Minh Đông
Xem chi tiết
Huỳnh Hân
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 23:01

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

if n<=5 then write('So vua nhap chua lon hon 15') else

begin

t:=0; i:=10;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

end;

write('Tong la: ',t);

readln

end.

Vy Tường_8a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:30

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.

huyokkkkk
Xem chi tiết
Nguyễn Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:15

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=0;

while i<=n do 

 begin

i:=i+1;

if i mod 2=0 then t:=t+i;

end;

writeln(t);

readln;

end.

Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

Thanh Nguyễn
Xem chi tiết
HT.Phong (9A5)
10 tháng 3 2023 lúc 13:46

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

 

thư lê
Xem chi tiết
Phía sau một cô gái
16 tháng 3 2023 lúc 15:04

program TinhTongWhileDo;

var

     n, i: integer;

     S: real;

begin

     write('Nhap so n: ');

     readln(n);

     S := 0;

     i := 1;

     while i <= 2*n do

     begin

          S := S + 1/i;

          i := i + 1;

     end;

     writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);

     readln;

end.