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.

5 tháng 5 2023

Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;

Lỗi: gia tri sửa lại: giatri

Lỗi: readin(n) sửa lại: readln(n);

Lỗi: i:=1 sửa lại: i:=1;

Lỗi: while i < n do sửa lại: while i <= n do

Lỗi: i:=i+2 sửa lại: i:=i+1;

Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

writeln(t);

readln;

end.

19 tháng 12 2022

Var a,b:integer;
           Const c =3;
           Begin
              a :=200;
              b :=a/c;
              write(b);
              readln; (ủa readln cái j)
           end.

19 tháng 12 2022

 Var a,b :integer;     (bỏ dấu =)
           Const c =3;     (bỏ dấu :)
           Begin
              a :=200;      (thêm ;)
              b :=a/c;       
              write(b);
              readln;       (thêm ';' cơ mà read cái j)
           end.                 (thêm '.')

a=integer

Sửa lại: a:integer;

b=real

Sửa lại: b:real;

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v

21 tháng 8 2018

a) uses crt;

b) var dt, r: real;

c) Thiếu readln(r);

d) dt:= pi*sqr(r);

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

1: Sai

2: Sai

3: Đúng

4: Đúng

5: Sai

6 tháng 3 2023

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;

2 tháng 11 2021

Program bai tap 1; -> Program Bai_tap_1;

Uses CRT -> Uses CRT;

Var a;=integen; -> Var a: integer;

b;=real; -> b: real;

Constc;=3; -> Const c=3;

Begin

a:=200;

b:=a/c;

Readln;

End -> End.

2 tháng 11 2021

Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;