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.

#include <bits/stdc++.h>

using namespace std;

long long a,b,k,x,y,dem=0;

int main()

{

cin>>a>>b>>k;

for (x=1; x<=k; x++)

{

for (y=1; y<=k; y++)

{

if (a<=x*x && a<=b && a<=y*y*y && a<=b) dem++;

}

}

cout<<dem;

return 0;

}

28 tháng 8 2021

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

28 tháng 8 2021

Mình nói thật nhé là ko có 2 số lẽ liên tiếp nhé

vd n+2 với n là 1

thì số lẻ tiếp theo của nó là (n+2)+2 tức n+4 đấy còn liên tiếp (n+2)+1 là ko bao giờ xãy ra

 

uses crt;

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

i,n,k,t:integer;

begin

clrscr;

readln(n,k);

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

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a=0) and (b=0) then write('VSN)'

else if (a<>0) then write(b)

else if (b<>0) then write(0)

else write(-b/a);

readln;

end.

Mọi người giúp em bài Pascal này với ạ: Bài 1: Viết chương trình nhập vào một dãy n số và in ra màn hình các thông tin sau: -Số hạng dương lớn nhất của dãy và chỉ số (vị trí) của nó. -Số hạng dương nhỏ nhất của dãy và chỉ số (vị trí) của nó. -Số hạng âm lớn nhất của dãy và chỉ số (vị trí) của nó. -Số hạng âm nhỏ nhất của dãy và chỉ số (vị trí) của nó. Bài 2: Viết chương trình nhập vào...
Đọc tiếp

Mọi người giúp em bài Pascal này với ạ:

Bài 1: Viết chương trình nhập vào một dãy n số và in ra màn hình các thông tin sau:

-Số hạng dương lớn nhất của dãy và chỉ số (vị trí) của nó.

-Số hạng dương nhỏ nhất của dãy và chỉ số (vị trí) của nó.

-Số hạng âm lớn nhất của dãy và chỉ số (vị trí) của nó.

-Số hạng âm nhỏ nhất của dãy và chỉ số (vị trí) của nó.

Bài 2: Viết chương trình nhập vào mảng a gồm 10 phần tử nguyên, sau đó, nhập một giá trị x. Tìm trong mảng a nếu có phần tử nào có giá trị bằng với x thì hiển thị lên màn hình vị trí của nó trong mảng a.

Bài 3: Viết chương trình nhập vào một ma trận vuông, xuất ra màn hình ma trận đó và cho biết tổng các phần tử trên đường chéo chính.

1

Bài 1:

uses crt;
var n,i,dem,maxd,vt,vt1,vt2,vt3,maxa,dem1:integer;
a,b,c,d,e,f,g:array[1..100]of integer;
mind,mina:int64;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('nhap lai');
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------so-hang-duong-----------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
b[dem]:=a[i];
end;
maxd:=0;
for i:=1 to dem do
if maxd<b[i] then maxd:=b[i];
vt:=0;
for i:=1 to n do
if maxd=a[i] then
begin
vt:=vt+1;
c[vt]:=i;
end;
writeln('so hang duong lon nhat cua day la: ',maxd);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt do
write(c[i]:4);
writeln;
mind:=maxint;
for i:=1 to dem do
if mind>b[i] then mind:=b[i];
vt1:=0;
for i:=1 to n do
if mind=a[i] then
begin
inc(vt1);
d[vt1]:=i;
end;
writeln('so hang duong nho nhat cua day la: ',mind);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt1 do
write(d[i]:4);
{------------------------so-hang-am--------------------------}
writeln;
dem1:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem1);
e[dem1]:=a[i];
end;
maxa:=e[1];
for i:=1 to dem1 do
if maxa<e[i] then maxa:=e[i];
vt2:=0;
for i:=1 to n do
if maxa=a[i] then
begin
inc(vt2);
f[vt2]:=i;
end;
writeln('so hang am lon nhat cua day la: ',maxa);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt2 do
write(f[i]:4);
writeln;
mina:=maxint;
for i:=1 to dem1 do
if mina>e[i] then mina:=e[i];
vt3:=0;
for i:=1 to n do
if mina=a[i] then
begin
inc(vt3);
g[vt3]:=i;
end;
writeln('so hang am nho nhat cua day la: ',mina);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt3 do
write(g[i]:4);
readln;
end.

Bài 2:

uses crt;
var a,vt:array[1..10]of integer;
i,x,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap x='); readln(x);
dem:=0;
for i:=1 to 10 do
if a[i]=x then
begin
inc(dem);
vt[dem]:=i;
end;
if dem=0 then writeln('khong co gia tri ',x,' trong day')
else
begin
writeln('vi tri cua ',x,' trong day lan luot la:');
for i:=1 to dem do
write(vt[i]:4);
end;
readln;
end.

Bài 3:

uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
{----------------------------xuat-----------------------------}
writeln('ma tran ban vua nhap la:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
{------------------tong-cac-phan-tu-tren-duong-cheo-chinh------------------}
t:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then t:=t+a[i,j];
writeln('tong cac phan tu tren duong cheo chinh la: ',t);
readln;
end.

10 tháng 3 2023

Cuộc sống sẽ ra sao nếu thiếu đi tình yêu thương? Có bao giờ bạn tự hỏi như vậy. Chúng ta ai cũng biết tình yêu thương có vai trò và sức mạnh vô cùng to lớn đối với con người từ bao đời này. Vậy thế nào là tình yêu thương? Tình yêu thương là sự rung động, thấu cảm trước hoàn cảnh, con người. Từ đó có những hành động thiết thực để giúp đỡ, san sẻ với những người trong hoàn cảnh khó khăn đó. Người có lòng yêu thương là người sống chan hòa với người khác, sẵn sàng giúp đỡ, cho đi mà không mong nhận lại. Yêu thương vô cùng quan trọng trong cuộc sống, mỗi chúng ta hãy sống, yêu thương người khác cũng như yêu thương chính bản thân mình. Một xã hội ngập tràn tình yêu thương thì đó là một xã hội bình đẳng, văn minh, bác ái. Khi lòng yêu thương trở thành chuẩn mực của xã hội thì cái ác sẽ bị đẩy lùi, ngọn lửa tình cảm sẽ ấm áp thắp lên trong mỗi căn nhà bình dị. Bên cạnh đó, yêu thương còn là lực hấp dẫn kéo con người ta xích lại gần nhau, tạo thành khối thống nhất, gây dựng những mối quan hệ tốt đẹp giữa người với người. Nếu thiếu tình yêu thương cuộc sống con người sẽ trở nên trống rỗng, cằn cỗi, tâm hồn con người bị xơ cứng, ích kỉ, hẹp hòi, chỉ lo đến quyền lợi cá nhân, thờ ơ vô cảm trước nỗi đau bất hạnh của người khác. Bản thân chúng ta là một người học sinh hãy thể hiện tình yêu thương từ những việc làm nhỏ nhất, chia sẻ niềm vui nỗi buồn với những người xung quanh, sẵn sàng cho đi, sẵn sàng tham gia vào các hoạt động thiện nguyện để giúp đời, giúp người. Mỗi người chỉ được sống một lần, hãy sống yêu thương, chia sẻ với những người xung quanh để thấy cuộc đời này tươi đẹp hơn, đáng sống hơn vì không còn gì tuyệt vời hơn khi được sống trong một xã hội tràn ngập tình yêu thương.

4 tháng 4 2023

cứu m vs