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
Những câu hỏi liên quan
Viết chương trình trong Pascal sử dụng câu lệnh lặp While...do... hoặc Repeat...until... để tính tổng n số tự nhiên sao cho \(0< n\le100\). Nếu n không nằm trong khoảng này, chương trình sẽ cho nhập lại số n.
mình thách bạn cũng với đề ấy trong chương trình scratch
Đúng 0
Bình luận (0)
viết chương trình pascal tính tổng 10 số tự nhiên đầu tiên nhập từ bàn phím ( viết bằng thuật toán bài 6)
giúp mik lẹ vs ạ mai mik thi
viết chương trình sử dụng lệnh while....do để tính tổng của n số tự nhiên đầu tiên nhập vào từ bàn phím Giải hộ mình cảm ơn bạn..
15 tháng 5 2022 lúc 10:13
Tổng của 80 số tự nhiên chẵn khác 0 đầu tiên trừ đi tổng của 80 số lẻ đầu tiên là:
A. 80 B. 160 C. 40 D. 20
\xin giúp mình với,cảm ơn các bạn/
Xem thêm câu trả lời
Viết chương trình nhập vào máy tính số tự nhiên N in ra màn hình các ước của N và số lượng các ước bằng bao nhiêu?
Thược hiện bằng phần mềm free pascal
Program HOC24;
var i,n,d: integer;
begin
write('Nhap N: '); readln(n);
write('Cac uoc cua 'n,' la: ');
for i:=1 to n do if i mod n = 0 do then
begin write(i,' '); d:=d+1; end;
writeln;
write('Co ',d,' so la uoc cua ',n);
readln
end.
Đúng 1
Bình luận (0)
29 tháng 3 2021 lúc 8:18
Các bạn giúp mình với :
Câu : Cho dãy số tự nhiên gồm 10 số hạng có tổng bằng 3400, biết rằng mỗi số sau hơn số liền trước 10 đơn vị . Tìm số hạng đầu tiên và số hạng cuối cùng của dãy .
Thanks!
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
Cảm ơn bạn nha !!!!!
bạn PHẠM QUANG BÁCH nói đúng rồi
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Câu hỏi này minh hỏi về pascal nhé
Nhập 1 số n in ra so nguyên tố thứ n
Các bạn giải lệnh repeat until giùm mình nhé
Câu hỏi này chỉ giành cho học sinh giỏi tin lớp 6 thôi nhé
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến
Đúng 0
Bình luận (2)