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.

7 tháng 4 2023

Uses crt;

var i,n,z: longint;

begin clrscr;

readln(n); 

z:=1;

while(i<n) do begin 

i:=i+1;

z:=z*i;

end;

writeln(z);

readln;

end.

7 tháng 4 2023

program TinhGiaiThua;

var n, giaiThua: integer; 

begin
writeln('Nhap vao gia tri cua n (>0): ');
  readln(n);

if n <= 0 then
  begin
    writeln('Gia tri cua n phai lon hon 0.');
    exit; 
  end;

giaiThua := 1; 
  while n > 0 do
  begin
    giaiThua := giaiThua * n;
    n := n - 1;
  end;
  writeln('Giai thua cua n la: ', giaiThua);
   readln;
end.

14 tháng 8 2021

Uses crt;

Var i,n:integer;

S:real;

Begin

Write ('Nhap n');

Readln (n)

S:=0;

For i:=3 to n do 

S:=S+2/i;

Write ('Ket qua',S);

Readln; 

End.

uses crt;

var i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

i:=1;

while i<=n do

begin

if trunc(sqrt(i))=sqrt(i) then begin inc(dem); write(i:4);

end;

i:=i+1;

end;

writeln;

writeln(dem);

readln;

end.

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

readln(n);

i:=1;

while (i<n) do

begin

i:=i+1;

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

24 tháng 2 2023

Làm mỗi "số nguyên tố từ 2->n" được ko

13 tháng 4 2023

var i,n:integer;

begin

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

i:=2;

while n mod i <> 0 do i:=i+1;

if i = n then write(n,' la so nguyen to')

else write(n,' khong la so nguyen to');

readln

end.

13 tháng 4 2023

Uses crt;

var i,n,p: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod i=0) then p:=p+1;

if(p=2) then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

readln;

end.

9 tháng 3 2023

var i,n,s,du,dem:integer;

Begin

While n<=0 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then

Begin

Write(i:7);

du:=du+1;

s:=s+i;

End;

Writeln('So uoc cua ',n,' la ',du);

Writeln('Tong cac uoc cua ',n,' la ',s);

For i:=1 to s do

If s mod i = 0 then dem:=dem+1;

If dem=2 then write(s,' la so nguyen to')

Else write(s,' khong la so nguyen to');

Readln;

End.

9 tháng 3 2023

Cám ơn nhiều

7 tháng 3 2023

Program HOC24;

var i,n: integer;

S: longint;

begin

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

i:=1; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + i;
    i := i + 2;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

7 tháng 3 2023

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

7 tháng 3 2023

Viết chương trình pascal for to do để tính tổng S=2+4+6+...+n. N là số nguyên nhập từ bàn phím

7 tháng 3 2023

var n, s, i: integer;

begin

       write('Nhap n = ');

       readln(n);

       s := 0;

       i := 3;

       while i <= n do

       begin

              s := s + i;

              i := i + 3;

       end;

       writeln('Tong la ', s);

       readln;

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  
  for i := 3 to n step 1 do
  begin
    if i mod 2 = 0 then
      S := S + i;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

12 tháng 3 2019

mình thách bạn cũng với đề ấy trong chương trình scratch