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.

16 tháng 12 2020

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

str(n,s);

d:=length(s);

if s[d-1]+s[d]='68' then writeln('day la bien so dep')

else writeln('day khong phai bien so dep');

18 tháng 10 2020

Bài 1:

uses crt;
var n,kt,d:integer;
st:string;
begin
clrscr;
write('Nhap bien so xe:'); readln(n);
str(n,st);
d:=length(st);
kt:=0;
if (st[d-1]='6') and (st[d]='8') then kt:=1;
if kt=0 then writeln('Day khong la bien so dep')
else writeln('Day la bien so xe dep');
readln;
end.

Bài 2:

uses crt;
var a,b,c:array[1..100]of integer;
n,i,min,x,t,dem,j,dem1,kt,max,min1,y,kt1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Phan tu nho nhat trong mang la: ',min);
write('Nhap i='); readln(y);
for i:=1 to n do
if y=i then
begin
t:=0;
dem:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then
begin
t:=t+j;
dem:=dem+1;
b[dem]:=j;
end;
end;
writeln('Cac uoc cua phan tu a[',y,'] trong mang la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
writeln('Tong cac uoc cua phan tu a[',y,'] trong mang la: ',t);
dem1:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end;
end;
max:=c[1];
min1:=c[1];
for i:=1 to dem1 do
begin
if max<c[i] then max:=c[i];
if min1>c[i] then min1:=c[i];
end;
writeln('Tong cua so nguyen to lon nhat va so nguyen to nho nhat trong mang la: ',max+min1);
write('Nhap x='); readln(x);
kt1:=0;
for i:=1 to n do
begin
if i<x then
begin
for j:=i to x do
if a[j]<>a[x-j+1] then kt1:=1;
end;
end;
if kt1=0 then writeln('Khong co ',x,' so doi xung dung canh nhau')
else writeln('Co ',x,' so doi xung dung canh nhau');
readln;
end.

31 tháng 10 2014

bó tay. com .vn 

khó lắm

9 tháng 11 2014

Nếu xe cũ thì biển số xe có 4 chữ số, theo bài ra nó sẽ có dạng aabb.

- Nếu a = 0 thì số đó có dạng 00bb không chính phương

- Nếu a#0, theo bài ra:

aabb=m2<=>1000a+100a+10b+b=m2<=>1100a+11b=m2<=>11(100a+b)=m2<=>11(99a+a+b)=m2(*)

=>99a+a+b phải chia hết cho 11 mà 99a chia hết cho 11=>a+b phải chia hết cho 11, vì 0<a<10 và

0\(\le\)b<10 nên a+b=11(**), khi đó (*)<=>11(99a+11)=m2<=>112(9a+1)=m2=>9a+1 phải chính phương, ta nhận thấy a=7 vì 9.7+1=64=82, theo (**) thì b=4.

Vậy 4 số trên biển số xe là 7744

(Mình chỉ đoán vậy thôi nha, đây không chắc là đáp án)

4 tháng 10 2019

Đáp án D

Chọn X từ 24 chữ cái và chọn Y từ 10 chữ số, ta có 24.10=240  (cách chọn).

Chọn 4 chữ số giống nhau từ các chữ sổ ta có 10 cách chọn;

Mỗi bộ gồm 4 chữ số giống nhau, ta có một cách chọn duy nhất 1 chữ số còn lại để tổng các số là số có chữ số tận cùng bằng 8, chẳng hạn: 4 chữ số 0 , chữ số còn lại sẽ là 8 ; 4 chữ số 1, chữ số còn lại sẽ là 4;...; 4 chữ số 9, chữ số còn lại sẽ là 2 ).

Sắp xếp 5 chữ số vừa chọn có 5 cách xếp.

Do đó, có tất cả 10.5=50 (cách chọn số ở dòng thứ hai).

Suy ra có tất cả 240.50=12000 (biển số đẹp).

Chọn 2 biển số trong các biển số "đẹp" ta có C 2000 2 = 71994000 (cách)

18 tháng 12 2020

Thuật toán: 

-Bước 1: Nhập n

-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương

không thì n không phải là số chính phương

-Bước 3: Kết thúc.

Viết chương trình

uses crt;

var n:integer;

begin

clrscr;

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

if n<0 then writeln(n,' khong la so chinh phuong')

else begin

             if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

             else writeln(n,' khong la so chinh phuong');

       end;

readln;

end.

18 tháng 12 2020

trunc là gì anh ? Với ghi Input Output hộ e với

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt=0;

cin>>n;

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

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

if (kt==0) cout<<"YES";

else cout<<"NO";

}

29 tháng 12 2020

uses crt;

var i,n,s: integer;

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

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

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

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

21 tháng 12 2021

hinhf như là sai rồi đó bn