Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
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
28 tháng 2 2022
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
22 tháng 2 2022
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
n:=1;
s:=0;
while (n<=10000) do
begin
n:=n+2;
s:=s+1/n;
end;
writeln(s:4:2);
readln;
end.
14 tháng 5 2021
Bài hát: Tiếng chuông và ngọn cờBài hát ra đời năm 1985, bài hát nói lên ước vọng của tuổi thơ mong muốn cuộc sống hoà bình, hữu nghị, đoàn kết giũa các dân tộc trên toàn thế giới . Nêu rõ sự mong muốn khát khao hòa bình của thiếu nhi .
14 tháng 5 2021
tk:
cảm nhận của em khi nghe bài hát Làng tôi của nhạc sĩ Văn Cao: bài hát rât vui nhộn, khi nghe bài hát thì cảm thấy yêu quê hương dất nước,...
NB
15 tháng 4 2023
def sum_and_diff(m, n):
sum = m + n
diff = m - n
return sum, diff
# sử dụng chương trình con
a = 5.6
b = 2.3
result = sum_and_diff(a, b)
print("Tổng và hiệu của", a, "và", b, "là", result)
9 tháng 11 2021
b: uses crt;
begin
clrscr;
writeln(sqr(15+5)*sqr(6+4)*(6+4));
readln;
end.
H9
HT.Phong (9A5)
CTVHS
28 tháng 4 2023
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.