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

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

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

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Bình luận (0)
Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Bình luận (0)
 Khách vãng lai đã xóa
ẩn danh
Xem chi tiết
Đoàn Vĩ Khang
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 21:29

uses crt;

var a,b:integer;

{-------------chuong-trinh-con-tinh-tong---------------------}

function tong(x,y:integer):integer;

begin

tong:=x+y;

end;

{-------------chuong-trinh-con-tinh-tich------------------}

function tich(x,y:integer):integer;

begin

tich:=x*y;

end;

{-----------------chuong-trinh-con-so-lon------------------}

function solon(x,y:integer):integer;

begin

if x>y then solon:=x

else solon:=y;

end;

{-----------------chuong-trinh-con-so-be------------------}

function sobe(x,y:integer):integer;

begin

if x<y then sobe:=x

else sobe:=y;

end;

{--------------------chuong-trinh-chinh-----------------}

begin

clrscr;

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

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

writeln('Tong la: ',tong(a,b));

writeln('Tich la: ',tich(a,b));

writeln('So lon la: ',solon(a,b));

writeln('So be la: ',sobe(a,b));

readln;

end.

Bình luận (0)
Thùy Linh Võ
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 0:09

uses crt;

var a:array[1..100]of integer;

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

if ln<a[i] then ln:=a[i];

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

end;

writeln(ln);

writeln(nn);

readln;

end.

Bình luận (0)
Minh Khôi
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 19:19

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

ln=a[1];

nn=a[1];

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

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<t<<endl;

cout<<ln<<" "<<nn;

return 0;

}

Bình luận (0)
Kiều Vũ Linh
12 tháng 5 2022 lúc 20:25

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

i,n,s,max,min:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

s:=a[1];

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

s:=s+a[i];

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

If a[i] < min then min:=a[i];

End;

Writeln('Tong la ',s);

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

Write('So nho nhat la ',min);

Readln;

End.

Bình luận (0)
Hà phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 9:07

#include <bits/stdc++.h>

using namespace std;

long long a[6],i,t,t1;

int main()

{

t=0;

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

{

cin>>a[i];

if (a[i]%2==0) t=t+a[i];

}

t1=0;

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

if ((a[i]%2!=0) and (i%2==0)) t1=t1+a[i];

cout<<t<<endl;

cout<<t1;

return 0;

}

Bình luận (0)
Nguyễn Đức Anh Khoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)
Bảo Long
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 20:52

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

i,n,max:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

max:=a[1];

For i:=2 to n do

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

Writeln('Tong la ',s);

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

Readln

End.

Bình luận (0)
Nguyễn Hoàng Xuân Mai
3 tháng 5 2023 lúc 19:37

// Yêu cầu A: Nhập vào mảng a
let a = [1, 2, 3, 4, 5]; // Ví dụ: Mảng a gồm các số từ 1 đến 5

// Yêu cầu B: Tính tổng các giá trị của mảng a
let sum = 0; // Khởi tạo biến sum bằng 0
for (let i = 0; i < a.length; i++) { // Duyệt từng phần tử trong mảng a
  sum += a[i]; // Cộng từng giá trị của phần tử vào biến sum
}
console.log("Tổng các giá trị trong mảng a là: " + sum); // In kết quả tổng ra màn hình console

// Yêu cầu C: Tìm giá trị lớn nhất trong mảng a
let max = a[0]; // Khởi tạo biến max bằng giá trị đầu tiên của mảng a
for (let i = 1; i < a.length; i++) { // Duyệt từ phần tử thứ nhất đến cuối cùng của mảng a
  if (a[i] > max) { // Nếu giá trị của phần tử lớn hơn giá trị của biến max
    max = a[i]; // Gán giá trị của phần tử cho biến max
  }
}
console.log("Giá trị lớn nhất trong mảng a là: " + max); // In kết quả giá trị lớn nhất ra màn hình console

Bình luận (0)