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.

28 tháng 2 2021

a. Var i : integer;

S : real;

Begin S:= 0;

For i:=1 to 100 do S:= S + i;

Write (S);

Readln;

End.

28 tháng 2 2021

Bài của bạn Hồ Đức Việt đúng nhưng đề bài không cho rõ là đến số bao nhiêu nên phải nhập số đó vào ctr chứ không phải cho chạy luôn. Còn đề cho mình hỏi 2 vòng lặp không cần có được không chứ mình chưa rõ dùng 2 vòng lặp kiểu gì? nếu dùng 2 vòng thì bạn muốn in ra kết qua nhiều lần hay thế nào? :)

program day_so;

uses crt;

var s,i,n:integer;

begin

writeln('nhap so cuoi cua day');readln(n)

for i:=1 to n do s:=s+i;

writeln('Ket qua day so la', s:0:0); readln

end.

a) Sử dụng vòng lặp For..do

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do 

  a:=a+i;

writeln(a);

readln;

end.

b) Sử dụng vòng lặp While...do

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

i:=1;

while i<=n do 

  begin

a:=a+i;

inc(i);

end;

writeln(a);

readln;

end.

16 tháng 3 2023

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

19 tháng 3 2023

cô cho đề như thế, mà mình bt làm r

 

22 tháng 3 2022

Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

for i:=2 to n do 

 if i mod 2=1 then write(i:4);

writeln;

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=50 do 

begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.

24 tháng 5 2021

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

1 tháng 4 2022

Program HOC24;

var i,n: integer;

S: real;

begin

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

s:=0;

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

write('S= ',s:5:2);

readln

end.

11 tháng 4 2022

.

11 tháng 4 2022

.

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