Em hãy mô tả thuật toán tính tổng của các số tự nhiên lẻ bắt đầu từ 1, đến khi nhận được tổng số lớn hơn 300 thì dừng lại và thông báo tổng số đó .
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.
Input: 10 số tự nhiên đầu tiên
Output: Tổng của chúng
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~~
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
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.
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.
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.
*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.