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.

24 tháng 4 2019

Không vì vòng lặp sẽ lặp vô hạn và bị lỗi 201

Với lại end không có dấu chấm

24 tháng 4 2019

trả lời: có

nhưng nó sẽ chạy vô hạn ko bao giờ dừng lại do a=5 luôn bé hơn 6

19 tháng 12 2021

Có 5 chỗ sai

11 tháng 5 2023

Chương trình thiếu cậu ơi, thêm vào ạ

11 tháng 5 2023

Đoạn chương trình trên sẽ in ra màn hình chữ 'A' năm lần.

Lý do là vì chương trình bắt đầu bằng việc gán giá trị 5 cho biến i. Sau đó, vòng lặp while được sử dụng để kiểm tra điều kiện i < 10. Vì giá trị ban đầu của i là 5 và không có lệnh nào thay đổi giá trị của i trong phạm vi vòng lặp, nên điều kiện i < 10 vẫn đúng.

Trong thân vòng lặp, câu lệnh Writeln('A') được thực thi, in ra chữ 'A' trên màn hình. Tiếp theo, biến i được tăng lên 1 (i := i + 1). Sau đó, vòng lặp tiếp tục lặp lại và kiểm tra điều kiện. Quá trình này lặp lại cho đến khi giá trị của i đạt đến 10.

Vì vậy, trong quá trình thực thi chương trình, lệnh Writeln('A') được thực hiện 5 lần, và do đó sẽ in ra màn hình 5 chữ 'A'.

Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều Bài 1: Cho đoạn chương trình sau: Program Vidu;Var      A,B : text;     F : integer;Begin     Assign ( A,'Songuyen.TXT');     Assign ( B,'Soam.TXT');     reset (A);     rewrite (B);     while not eof (A) do     begin            read ( A, x);            Ifx>= 0 then            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)            else write ( B,x);      end;      close (A);...
Đọc tiếp

Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều leu

Bài 1: Cho đoạn chương trình sau: 

Program Vidu;

Var 

     A,B : text;

     F : integer;

Begin

     Assign ( A,'Songuyen.TXT');

     Assign ( B,'Soam.TXT');

     reset (A);

     rewrite (B);

     while not eof (A) do

     begin

            read ( A, x);

            Ifx>= 0 then

            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)

            else write ( B,x);

      end;

      close (A); close (B);

End.

Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?

Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.

0
6 tháng 1 2022

 

25 tháng 4 2023

sai r

17 tháng 12 2021

Chọn B

20 tháng 9 2018

Đáp án A