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
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
15 tháng 1 2019 lúc 1:57

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
19 tháng 11 2018 lúc 8:37

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
26 tháng 5 2018 lúc 14:52

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
22 tháng 7 2017 lúc 8:10

maxi haco
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:10

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=15 to 25 do 

  s:=s+i;

writeln(s);

readln;

end.

Khang Di Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 9:15

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 55 do s:=s+i;

writeln(s);

readln;

end.

Quỳnh Trâm Nguyễnn
Xem chi tiết
ILoveMath
7 tháng 3 2022 lúc 14:20

Uses Crt;

Var i,S:longint;

Begin

Clrscr;

Readln(i,S);

For i:=15 to 25 do S:=S+i

Write(S);

Readln

End.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:50

#include <bits/stdc++.h>

using namespace std;

int s,i;

int main()

{

s=0;

for (i=15; i<=25; i++) s+=i;

cout<<s;

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.

 

Tiến Đạt Huỳnh
Xem chi tiết
Đặng Phương Linh
23 tháng 3 2023 lúc 10:58

program tinh_tong;

uses crt;

var i,N:byte;

     S:integer;

begin

        writeln('Nhap so N='); readln(N);

       i:=1;  S:=0;

        while i<=N do

            begin

               if (i mod 3=0) and (i mod 2=1) then S:=S+i;

               i:=i+1;

            end;

        writeln('Tong S=',S);

        readln

end.

 

 

 

nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha