viết chương trình tính tỗng các số tự nhiên đầu tiên cho đến khi dó bằng 10 thì dừng lại.
Cho mình bt đáp án s :D
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
17 tháng 3 2021
Tính ntn???????😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳
5 tháng 5 2021
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.
11 tháng 11 2016
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
27 tháng 5 2021
Gọi số cần tìm là \(\overline{ab}\left(a,b\in N;5\le a,b\le9\right)\).
Theo bài ra ta có a + b = 14.
\(\overline{ba}-\overline{ab}=18\Leftrightarrow\left(10b+a\right)-\left(10a+b\right)=18\Leftrightarrow9\left(b-a\right)=18\Leftrightarrow b-a=2\).
Kết hợp với a + b = 14 ta có \(b=\dfrac{14+2}{2}=8;a=6\). (TMĐK)
Vậy số cần tìm là 68.
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.
Em ghi đề chính xác lại
đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa