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.

15 tháng 3 2016

có mk hc dc pascal nè

15 tháng 3 2016

có ai biết thì chỉ mik các bài tách ma trận con với

24 tháng 2 2019

kb òi

6 tháng 11 2021

Có ai chỉ mik với

6 tháng 11 2021

 có tui

27 tháng 12 2020

Không đúng (biên dịch lỗi).

Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).

27 tháng 12 2020

Chắc chắn là chương trình sẽ bị lỗi rồi

Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập

thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồi

26 tháng 2 2019

fdddhxr

26 tháng 2 2019

?

30 tháng 12 2021

Chọn B

hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?a) Program  Hieu_hai_so;             Begin                       Writeln(‘Hay nhap hai so’);                        Readln(a,b);                        Write(‘Hieu cua hai so la:‘,a-b);             Var a,b: Integer;              Endb) Program Tong_hai_so;             Begin                      Writeln(‘Hay nhap hai so’);                     Readln(a,b);                     Write(‘Tong cua hai so la:‘,a-b);             Var...
Đọc tiếp

hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?

a) Program  Hieu_hai_so;

             Begin

                       Writeln(‘Hay nhap hai so’);

                        Readln(a,b);

                        Write(‘Hieu cua hai so la:‘,a-b);

             Var a,b: Integer;

              End

b) Program Tong_hai_so;

             Begin

                      Writeln(‘Hay nhap hai so’);

                     Readln(a,b);

                     Write(‘Tong cua hai so la:‘,a-b);

             Var a,b: Integer;

              End

1
14 tháng 12 2021

t hong bt cái này ă, mà chỗ m lớp 8 đc hc tin học vui quá ha, t ko bt ba cái vụ này lun:<

14 tháng 12 2021

chu choa

 

24 tháng 10 2021

II:

uses crt;

var x,y,z:int64;

begin

clrscr;

readln(x,y,z);

writeln(x+y+z);

writeln(x*y*z);

readln;

end.

10 tháng 5 2023

Câu 58:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

10 tháng 5 2023

Câu 61:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.