tính tổng 10 số tự nhiên đầu tiên bằng lệnh repeat until trong phần mềm pascal
các bạn giúp mình với
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.
Những câu hỏi liên quan
B9
29 tháng 3 2021
gọi số đầu tiên của dãy là a
theo bài ra, ta có:
a+a+10+a+20+....+a+90=10a+450=3400
10a=2950 Vậy a=295
số cuối cùng của dãy là 295+90=385
21 tháng 3 2023
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
21 tháng 3 2023
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Lời giải :
program hotrotinhoc;
var i,t,s : integer;
begin
i:=0; s:=0;
repeat
i:=i+1;
s:=s+i;
until i=10;
write(s);
readln
end.