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.

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

2 tháng 5 2023

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

s:longint;

i,n:integer;

Begin

s:=1;

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

For i:=1 to n do

Begin

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

s:=s*a[i];

End;

Write('Tich la ',s);

Readln

End.

2 tháng 5 2023

program TinhTich;
var n, i, tich: integer;
begin
  write('Nhap vao n: ');
  readln(n);
  tich := 1;
  for i := 1 to n do
    tich := tich * i;
  writeln('tich cua ', n, ' so tu nhien dau tien la: ', tich);
  readln;
end.

 

7 tháng 3 2021

 Bài toán cổ nào vậy bạn?

12 tháng 5 2021

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 → 

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

 

 

12 tháng 5 2021

 Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12

28 tháng 2 2021

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

28 tháng 2 2021

bạn xuống đây nếu không hiểu

 

undefinedundefined

23 tháng 1 2022

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=10 to 20 do t:=t-i;

write('Ket qua la: ',t);

readln

end.

23 tháng 1 2022

Program Tínhsotunhien;

User Crt;

Var i, tich: longint

Begin

Clrscr;

tich : = 1 , i: = 1

While tich <= 20 do

Begin

Tich: =tich*i;

End;

Writeln('ketqua,'tich);

Readln;

End.