Những câu hỏi liên quan
Thư Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 20:05

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 20:07

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
NgocTuan
3 tháng 1 2022 lúc 20:13

alo

Bình luận (0)
Huy Hoang Nguyen
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 17:46

Var a:array:[1..1000] of integer;

i,n,max:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

if a[i] > max then max:=a[i];

write('So lon nhat la ',max);

Readln

End.

Bình luận (0)
KenShi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:39

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Bình luận (0)
Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Bình luận (0)
Nam Trịnh bảo
Xem chi tiết
Mai Nguyễn Tuấn Anh
20 tháng 1 2022 lúc 20:19

Uses crt;
Var
      n,t:longint;
BEGIN
      Read(n);
      While n<>0 do
            Begin
                 t:=t+n mod 10;
                 n:=n div 10;
            End;
       Write(t);
Readln;
END.

 


 

Bình luận (0)
Lê Phương Mai
20 tháng 1 2022 lúc 20:20

Refer:

Program baitap;

Uses crt;

Var n,x,T:integer;

Begin

Clrscr;

T:=0;

Write('n='); Readln(n);

While ( N <> 0 ) do

     Begin

     x := n mod 10;

     n := n div 10;

     T := T + x; 

     End;

Writeln('T=',T);

Readln

End.

Bình luận (0)
Đỗ Tuệ Lâm
20 tháng 1 2022 lúc 20:48

undefined

Bình luận (0)
nuinuini
Xem chi tiết
Quốc thuận Lê
Xem chi tiết
Phía sau một cô gái
10 tháng 4 2023 lúc 22:55

program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

          if A[i] > max then max := A[i];

          if A[i] < min then min := A[i];

     end;

     writeln('Gia tri lon nhat la: ', max);

     writeln('Gia tri nho nhat la: ', min);

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     readln;

end.

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
16 tháng 1 2017 lúc 15:20

Bình luận (0)
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 22:52

 

 

 

#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%3==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)