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
Linh Nga Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
15 tháng 3 2022 lúc 15:05

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:33

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

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

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

Luân Võ
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
nguyễn an phát
5 tháng 4 2021 lúc 18:23

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 19:50

Câu 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 19:51

Câu 2: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

Thảo Bùi
Xem chi tiết
𝓗â𝓷𝓷𝓷
14 tháng 4 2022 lúc 15:47

Tham khảo:

undefined

V.Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 20:00

uses crt;

var a,b,c,max,t:integer;

begin

clrscr;

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

t:=a+b+c;

writeln('Tong cua 3 so la: ',t);

writeln('So lon nhat trong 3 so la: ',max);

readln;

end.

Mạnh Quốc
Xem chi tiết
Phía sau một cô gái
16 tháng 2 2023 lúc 20:39

a = int(input("Nhập vào số nguyên a: "))

b = int(input("Nhập vào số nguyên b: "))

c = int(input("Nhập vào số nguyên c: "))

max_num = max(a, b, c)

print("Giá trị lớn nhất là:", max_num)

Nguyễn Trần Thanh Lan
Xem chi tiết
Nguyễn Trần Thanh Lan
25 tháng 4 2023 lúc 22:11

Giúp mik vs . Mai thi rồi

Sunset of the Gods
25 tháng 4 2023 lúc 23:04

bạn học ngôn ngữ lập trình j vậy

 

Hải Hà
Xem chi tiết
Minh Lệ
6 tháng 4 2023 lúc 22:49

Bài 1:

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

Minh Lệ
6 tháng 4 2023 lúc 22:54

Bài 2:

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];

write(Tong la: ',t);

readln

end.

Minh Lệ
6 tháng 4 2023 lúc 22:55

Bài 3:

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=1;

for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];

write('Tich la: ',t);

readln

end.

Hải Hà
Xem chi tiết