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.

26 tháng 7 2021

Uses crt;
var i,n,uoc,j,tam:longint;
Begin
clrscr;
readln(n);uoc:=0;tam:=0;
for i:= 1 to n do if n mod i = 0 then inc(uoc);
if uoc = 2 then write(n,' la so nguyen to')
 else for i:= 2 to n do if n mod i = 0 then
   begin
   tam:=0;
   for j:= 1 to i do if i mod j = 0 then inc(tam);
   if tam = 2 then write(i,'  ');
   end;
readln;
end.

Có chỗ nào sai thì bảo mình

26 tháng 7 2021

Có thể bỏ uoc:=0; tam:=0 ở dòng thứ 5 nha

 

#include <bits/stdc++.h>

using namespace std;

string n;

int d;

int main()

{

cin>>n;

d=n.length();

cout<<d;

return 0;

}

4 tháng 1 2022

pascal mà bạn!

 

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

readln;

end.

22 tháng 3 2023

n = int(input("Nhập vào số n: "))

if n <= 0:
    print("n phải lớn hơn 0")
else:
    for i in range(1, n+1):
        print(i)

1 tháng 9 2021

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
  clrscr;
  repeat
    write('nhap n:');readln(n);
    if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
  until (n>0)and(n<10000);
  writeln('cac uoc so la so tu nhien cua ',n,' la:');
  for i:=1 to n do
  if n mod i=0 then write(i,'    ');
  writeln;
  dem:=0;
  for i:=2 to n do
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then inc(dem);
  end;
  if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then write(i,'    ');
  end;
  if dem=0 then write(0);
  readln;
end.

 

29 tháng 4 2023

Câu 3:

Var i,n:integer:

Begin

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

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

29 tháng 4 2023

Câu 4

Var i,n:integer:

Begin

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

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

27 tháng 4 2023

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

i,n:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

Write('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:8);

Readln

End.

28 tháng 2 2022

tham khảo

Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.  
28 tháng 2 2022

TK

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

21 tháng 1 2022

giúp với

 

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

int main()

{

cin>>st;

d=st.length();

dem=0;

for (i=0; i<d; i++)

if (st[i]=='0') dem++;

cout<<dem;

return 0;

}