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.
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
20 tháng 2 2022
uses crt;
var n,i,t,x:integer;
begin
clrscr;
readln(n);
t:=0;
while n>0 do
begin
x:=n mod 10;
if x mod 2=0 then t:=t+x;
n:=n div 10;
end;
writeln(t);
readln;
end.
13 tháng 4 2022
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i*i;
end;
writeln(s);
readln;
end.
ML
7 tháng 3 2023
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
24 tháng 3 2023
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
ML
7 tháng 3 2023
Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả
TH
7 tháng 3 2023
Viết chương trình pascal for to do để tính tổng S=2+4+6+...+n. N là số nguyên nhập từ bàn phím
7 tháng 3 2023
var n, s, i: integer;
begin
write('Nhap n = ');
readln(n);
s := 0;
i := 3;
while i <= n do
begin
s := s + i;
i := i + 3;
end;
writeln('Tong la ', s);
readln;
end.
24 tháng 3 2023
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 3 to n step 1 do
begin
if i mod 2 = 0 then
S := S + i;
end;
writeln('Tong S la: ', S);
readln;
end.
mình thách bạn cũng với đề ấy trong chương trình scratch