mô tả thuật toán tính tổng các số lẻ (chẵn) trong 100 (khác 0) số tự nhiên đầu tiê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
NT
3
AA
31 tháng 12 2020
Bn xem đúng k nhé:
Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng
Chúc bn hok tốt~~
26 tháng 12 2020
a) Tổng của 50 số tự nhiên đầu tiên
Xác định bài toán:
-Input: 50 số tự nhiên đầu tiên
-Output: Tổng của 50 số đó
Mô tả thuật toán:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=n thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
b) Kiểm tra a là số chẵn hay số lẻ
Xác định bài toán
-Input: Số a
-Output: Kiểm tra xem a là số chẵn hay số lẻ
Mô tả thuật toán
-Bước 1: Nhập a
-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn
không thì a là số lẻ
-Bước 3: Kết thúc
AT
1
27 tháng 12 2022
*Mô tả thuật toán:
- Bước 1: s <- 1
- Bước 2: i <- 1 đến 100 thì s <- s*i
- Bước 3: Xuất s
- Bước 4: Kết thúc thuật toán
*Viết chương trình:
Program tinh;
Uses crt;
Var s: longint;
i: integer;
Begin
Clrscr;
s:=1;
For i:=1 to 100 do s:=s*i;
Writeln(s);
Readln;
End.
TP
0
21 tháng 11 2017
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
21 tháng 11 2017
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
TT
2
27 tháng 12 2020
Mô tả thuật toán:
-Bước 1: i←0; s←1;
-Bước 2: i←i+1;
-Bước 3: s←s*i;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Viết chương trình thì kiểu dữ liệu của 100 số tự nhiên đầu tiên là lớn quá bạn
27 tháng 12 2020
*Mô tả thuật toán:
- Bước 1: s <- 1
- Bước 2: i <- 1 đến 100 thì s <- s*i
- Bước 3: Xuất s
- Bước 4: Kết thúc thuật toán
*Viết chương trình:
Program tinh;
Uses crt;
Var s: longint;
i: integer;
Begin
Clrscr;
s:=1;
For i:=1 to 100 do s:=s*i;
Writeln(s);
Readln;
End.
24 tháng 10 2015
Ta có dãy 1 , 2 , 3 , ... , 1000
Chia ra thành 2 dãy
Chẵn : 2 , 4 , 6 , ... , 1000
Lẻ : 1 , 3 , 5 , ... , 999
Mỗi dãy có số số hạng là :
1000 : 2 = 500 ( số )
Tổng các số chẵn là :
( 1000 + 2 ) x 500 : 2 = 250 500
Tổng các số lẻ là :
( 999 + 1 ) x 500 : 2 = 250 000
Tổng số chẵn hơn tổng số lẻ là :
250 500 - 250 000 = 500
Đáp số : 500