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.

27 tháng 2 2023

var A:

     array[1..n] of int64;

     i, n, count: integer;

begin

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

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

      end;

 

     count := 0;

     for i := 1 to n do

          if A[i] > 0 then

               count := count + 1;

     writeln('So luong cac so nguyen duong trong mang la: ', count); 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.

9 tháng 2 2022

Program HOC24;

var m,n,i: integer;

Begin

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

write('Nhap M: '); readln(m);

for i:=m to n do if sqr(trunc(sqrt(i)))=i then write(i,' ');

readln

end.

20 tháng 1 2022

program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.

mk mới làm tổng thui nghen

20 tháng 1 2022

còn hiệu với tích ko ạ

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

 

18 tháng 10 2023

Ngôn ngữ: C++

#include <bits/stdc++.h>

using namespace std;
long long a[1000000];
long long n,m,d;
int main()
{
    cin>>n>>m;
    for(int i=1;i<=n;i++){
        long long tmp;
        cin>>tmp;
        a[i]=a[i-1]+tmp;
    }
    for(int i=1;i<n;i++){
        for(int j=i+1;j<=n;j++){
            if(a[j]-a[i-1]<=m){d++;}
        }
    }
    cout<<d;
    return 0;
}

18 tháng 10 2023

Làm Pascal hộ mình ạh