Những câu hỏi liên quan
Minh Lệ
Xem chi tiết
Thanh An
26 tháng 7 2023 lúc 1:58

Tham khảo!

a) Lỗi được phát hiện khi thực hiện chương trình với bộ dữ liệu Hình 6b: a = 0, b = 2 và Hình 6c: a = 0, b = 0.

b) Câu lệnh trực tiếp tạo ra lỗi là: Media VietJack

Câu lệnh liên quan đến lỗi là: Media VietJack

c) Nguyên nhân gây ra lỗi này là: lỗi logic vì phép chia cho 0 là không xác định.

Thảo Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2022 lúc 14:59

Bài 2: 

a: Input: 50 số từ 1 đến 50

Output: Tổng các số nguyên tố

c: Viết chương trình:

uses crt;

var i,j,t,kt:integer;

begin

clrscr;

t:=0;

for i:=2 to 50 do 

  begin

kt:=0;

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

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

if kt=0 then t:=t+i;

end;

writeln(t);

readln;

end.

Nguyễn Ngọc Châu
Xem chi tiết
Nguyễn Ngọc Châu
19 tháng 10 2016 lúc 16:24

Trả lời giúp với các bạn!!!

 

 

tao quen roi
3 tháng 11 2016 lúc 22:44

không vì for do có giới hạn

còn while do thì không

Cheewin
15 tháng 1 2017 lúc 21:33

Không được , bạn nên viết đúng cấu trúc của từng câu lệnh chứ không được thay thế bởi vì máy tính đã được cài đặt sẵn như thế mà bạn

hương lê
Xem chi tiết
Ngân
Xem chi tiết
ILoveMath
3 tháng 3 2022 lúc 9:21

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

ILoveMath đã xóa
ILoveMath
3 tháng 3 2022 lúc 10:29

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Minh Lệ
Xem chi tiết
Time line
9 tháng 11 2023 lúc 20:19

Tham khảo:

1) Đoán trước kết quả và chạy chương trình để kiểm tra.

In ra 8. 0

2) Xem kết quả và cho biết có sự tương tự giữa mảng với danh sách hay không.

Khánh Hoàng
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 22:51

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=2; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

Nguyễn Hoàng Duy
19 tháng 3 2023 lúc 22:42

program TongCacSoChan;
var
    n, s, i: integer;
begin
    write('Nhap n: ');
    readln(n);
    s := 0;
    i := 2;
    while i <= n do
    begin
        s := s + i;
        i := i + 2;
    end;
    writeln('Tong cac so chan la: ', s);
    readln;
end.

 

Minh Lệ
Xem chi tiết

1 – Hình 3a; 2 – Hình 3b; 3 – Hình 3c;

4 – Hình 3d; 5 – Hình 3e

Hà Phan Thanh
Xem chi tiết
Đặng Quang Diễn
Xem chi tiết