K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

15 tháng 3 2022

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.

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;

}

12 tháng 5 2021

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc:real;

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

begin

clrscr;

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

for i;=1 to n do

begin

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

end;

max:=a[1];min:=a[1];

for i;1= to n do

begin

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

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

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln((max+min)/2:4:2);

readln;

end.

12 tháng 5 2021

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc:real;

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

begin

clrscr;

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

for i;=1 to n do

begin

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

end;

max:=a[1];min:=a[1];

for i;1= to n do

begin

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

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

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end.

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln((max+min)/2:4:2);

readln;

end.

20 tháng 4 2022

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

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

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

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

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

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

End;

tbc:=(max+min)/2;

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

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

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

27 tháng 3 2023

program phiasaumocogai;

var

     n, i, num, min, max, sum: integer;

     average: real;

begin

     write('Nhap so luong day so can kiem tra: ');

     readln(n);

     min := maxint;

     max := -maxint;

     sum := 0;

     for i := 1 to n do

     begin

          write('Nhap day so thu ', i, ': ');

          readln(num);

          if num < min then

               min := num;

          if num > max then

               max := num;

          sum := sum + num;

     end;

     average := sum / n;

     writeln('So nho nhat la: ', min);

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

     writeln('Tong cac day so la: ', sum);

     writeln('Trung binh cua cac so la: ', average:0:2);

end.

7 tháng 5 2023

program TimMaxMinCuaMang;

var

      mang: array of integer;

      n, i, max, min: integer;

begin

      write('Nhap so phan tu cua mang: ');

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      max := mang[0];

      min := mang[0];

      for i := 1 to n-1 do

      begin

            if mang[i] > max then

                  max := mang[i];

            if mang[i] < min then

                  min := mang[i];

      end;

      writeln('Phan tu lon nhat la: ', max);

      writeln('Phan tu nho nhat la: ', min);

      readln;

end.

8 tháng 5 2023

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

i,n,min,max:integer;

Begin

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

For i:=1 to  n do

Begin

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

End;

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('So lon nhat la ',max);

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

Readln

End.

16 tháng 9 2021

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

write('Nhap c:'); readln(c);

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

20 tháng 4 2022

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

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

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

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

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

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

End;

tbc:=(max+min)/2;

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

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

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.