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 4 2022

tham khảo

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

20 tháng 4 2022

tham khảo

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

20 tháng 4 2022

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

readln;

end.

30 tháng 3 2023

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

24 tháng 4 2021

thanks nhiều nhaaa

27 tháng 2 2023

Var i,n,p:longint;

Begin

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

i:=1;

p:=1;

While i<=n do

Begin

i:=i+1;

p:=p*i;

End;

Write('Tich la ',p);

Readln;

End.

10 tháng 5 2021

uses crt;

var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

A:array[1..1000] of longint;

begin

clrscr;

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

for i:=1 to n do

begin

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

readln(A[i]);

end;

Write('Cac so nguyen to co trong mang la: ');

for i:=1 to n do

begin

dem:=0;

for j:=2 to A[i]/2 do

if A[i] mod j=0 then dem:=dem+1;

if dem=0 then write(A[i],'; ');

end;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

s:=1;

i:=1;

while i<=n do 

  begin

s:=s*i;

i:=i+1;

end;

writeln(s:0:0);

readln;

end.

28 tháng 2 2023

S=S+i mà

 

25 tháng 3 2018
VAR i,n:Integer; a :array[1..100] of Integer; BEGIN write('nhap so phan tu ');readln(N); for i := 1 to N do BEGIN write('phan tu thu ',i,' ');readln(A[i]); END; for i := 1 to N do BEGIN writeln; write(a[i]); END; readln; END.