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.

14 tháng 4

n = int(input("Nhập số tự nhiên n: "))
while n <= 0:
    print("Vui lòng nhập một số tự nhiên lớn hơn 0.")
    n = int(input("Nhập lại số tự nhiên n: "))
print("Các số nguyên từ", n, "đến 1 là:")
for i in range(n, 0, -1):
    print(i)

uses crt;

var n,i,d,max,x,y:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if max<x then max:=x;

end;

writeln(max);

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;

}

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 ạ

4 tháng 4 2023

cứu m vs

 

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.

D
datcoder
CTVVIP
17 tháng 10 2023

Mình thấy đề chưa rõ lắm về dữ liệu bài toán. Bạn gõ lại hoặc chụp ảnh lại để đề rõ hơn để mọi người dễ giúp bạn hơn nè.

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

 

D
datcoder
CTVVIP
8 tháng 12 2023

Program HOC24;

var i: byte;

s: string;

begin

readln(s);

for i:=1 to length(s) do

begin

if s[i]='1' then write('mot ');

if s[i]='2' then write('hai ');

if s[i]='3' then write('ba ');

if s[i]='4' then write('bon ');

if s[i]='5' then write('nam ');

if s[i]='6' then write('sau ');

if s[i]='7' then write('bay ');

if s[i]='8' then write('tam ');

if s[i]='9' then write('chin ');

if s[i]='0' then write('khong ');

readln;

end.

6 tháng 4 2023

Program HOC24;

var a,b: integer;

begin

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

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

 

if a> b then write(a);

if a<b then write(b);

if a=b then write('2 so bang nhau');

readln

end.