1.sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tổng và tích của 10 số tự nhiên đầu tiên
2.sử dụng câu lệnh lặp với số lần biết trước viết công thức in ra màn hình dãy số tự nhiên từ 1 đến 10
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
7 tháng 3 2023
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
KV
7 tháng 3 2023
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
21 tháng 3 2021
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
3 tháng 3 2021
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
MA
27 tháng 3 2021
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
27 tháng 3 2021
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
H9
HT.Phong (9A5)
CTVHS
15 tháng 3 2023
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if( i mod 2<>0) then write(i:3);
readln;
end.
LG
19 tháng 3 2023
uses crt;
var i,n:longint;
begin
writeln('nhap n'); readln(n);
for i:=1 to n do if i mod 2 =1 then
writeln(i);
readln;
end.
ngu ththế mà cũng ko làm được về lớp 1 mà học
12 tháng 4 2021
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
20 tháng 1 2022
uses crt;
var a,t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 6 do
begin
readln(a);
if (a mod 2=0) then t:=t+a;
end;
writeln(t);
readln;
end.
1:
uses crt;
var i,t:integer;
s:real;
begin
clrscr;
i:=0; t:=0; s:=1;
while i<=10 do
begin
i:=i+1;
t:=t+i;
s:=s*i;
end;
writeln('Tong cua 10 so tu nhien dau tien la: ',t);
writeln('Tich cua 10 so tu nhien dau tien la: ',s:0:0);
readln;
end.
2:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 10 do
write(i:4);
readln;
end.