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.

program nhom_ppt;

uses crt;

begin

writeln('Nhom chung minh Phan,My,Minh');

writeln('Chuc cac ban hoc tot');

readln;

end.

28 tháng 9 2016

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

1 tháng 10 2016

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

5 tháng 12 2017

nhap a,b gop lam 1 dc nhe

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a va b='); readln(a,b);

Tich:a*b;

Writeln('tich cua a va b la:', Tich:1:0);

Readln;

end.

5 tháng 12 2017

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

Write('Nhap a ='); readln(a);

Write('Nhap b='); readln(b);

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

Readln;

end.

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

30 tháng 10 2020

-Thứ nhất thiếu tên chương trình

- Thứ 2 sai ở var a,b:=byte sửa lại thành a,b: byte;
- Thứ 3 sai ở const c:3; sửa lại thành const c=3;

30 tháng 10 2020

-Trong pascal thiếu tên ct(vd: program baihoc;) thì ct vẫn chạy ok.

- var thì phải dùng ":" và thiếu ";". Sửa lại: var a,b:byte;

- const thì phải dùng "=". Sửa lại: const c=3;

-trong ct thiếu clrscr; thì ko sai nhưng sẽ rất khó nhìn.

-Sau readln thiếu ";". Sửa lại: readln;

8 tháng 5 2023

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

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

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.

a)

*Các lỗi sai là:

-Sai thứ tự các lệnh (begin trước, uses crt sau)

-Program vd: thiếu dấu ;

-Writeln('Chao cac ban!'): thiếu dấu ;

-Sai thứ tự các lệnh(end trước readln sau)

-Readln: thiếu ;

*Sửa lại:

Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.

b)

*Các lỗi sai là:

-Var a,b:=integer; Sai vì có dấu =

-Const c:=3; Sai vì có dấu :

-a:=200: Sai vì thiếu dấu ;

-b:=a/c: Biến b Sai kiểu dữ liệu;

-Writeln(b): Sai vì thiếu dấu ;

-Readln: Sai vì thiếu dấu ;

*Sửa lại:

Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.

18 tháng 3 2020

Từ nào là các từ khóa trong chương trình:

A. Begin, Program, Write, Uses, Read

B. Program, Var, Begin, Uses, Const, End

C. End, Read, Var, Const, program

D. Program, Begin, End, Uses, integer

18 tháng 3 2020

D

5 tháng 10 2016

À thôi em nghĩ ra rồi =))) Mọi người trả lời thoải mái

16 tháng 10 2018

Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!