Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Trang
Câu 1: Hãy viết thuật toán của bài toán: Câu 2: Hãy viết thuật toán của bài toán: Tinh tong cua 100 so tu nhien dau tien Câu 3: bẫy viết cú pháp của câu lệnh điều kiện dạng thiết và câu lệnh điều kiện dạng đầy đủ. Trong mỗi trường hợp em hãy cho ví dụ cụ thể Câu 4: Em hãy viết chương trình thẻo các bứớc sau: a, Nhập vào hai số nguyên: m,n b, Sử dụng câu lệnh IF,then lồng nhau để thông báo ra màn hình kết quả các trường hợp sau: -Cả hai số là số chẵn -Cả hai số là số lẻ -Một số là số chẵn,một s...
Đọc tiếp

Những câu hỏi liên quan
Vinh Đoàn
Xem chi tiết
Linh Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 9:22

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

Trần trung hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:48

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Ngoc Thanh
Xem chi tiết
Tô Mì
5 tháng 12 2021 lúc 11:02

Điều kiện: a<b
Câu lệnh: if a<b then write(a);

cute pho mai que
Xem chi tiết
☞Tᖇì  ᑎGâᗰ ☜
27 tháng 3 2022 lúc 20:49

Cắt bớt ra cậu oy._.

Mạnh=_=
27 tháng 3 2022 lúc 20:50

tách ra

qlamm
27 tháng 3 2022 lúc 20:50

tách bớt cho dễ lm đi ạ

Thùy Trâm
Xem chi tiết
Xem chi tiết
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:17

Cú pháp

If < điều kiện> then < câu lệnh>;

Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình

Oni-chan
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:14

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do t:=t+i;

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

Minh Lệ
Xem chi tiết
Mai Trung Hải Phong
13 tháng 9 2023 lúc 19:54

Trong các câu trên, các câu đúng về môi trường lập trình Scratch là:

1. Hoàn toàn thể hiện được cấu trúc rẽ nhánh của thuật toán.

3. Điều kiện rẽ nhánh cần phải được thể hiện bằng một biểu thức logic.

Các câu sai là:

2. Khối lệnh rẽ nhánh dạng đầy đủ mới cần điều kiện rẽ nhánh, còn khối lệnh rẽ nhánh dạng khuyết không cần có điều kiện nào. => Khối lệnh rẽ nhánh dạng đầy đủ (If ... then ... else) cũng cần phải có điều kiện rẽ nhánh. Khối lệnh rẽ nhánh dạng khuyết (If) không có điều kiện nhưng chỉ thực hiện một lệnh nếu điều kiện đúng.

4. Để thể hiện cấu trúc rẽ nhánh dạng khuyết, có thể dùng khối lệnh rẽ nhánh dạng đầy đủ (If … then… else…) nhưng không kéo thả lệnh nào phần else. Để thể hiện cấu trúc rẽ nhánh dạng khuyết, cần sử dụng khối lệnh rẽ nhánh dạng khuyết (If) mà không kéo thả lệnh nào phần else.