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.

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

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.

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 

30 tháng 12 2020

Sai ở chỗ vị trí đặt của Uses crt; Thiếu chấm phẩy sau lệnh Writeln và sai chính tả chữ Reason

Sửa lại: 

program chao;

uses crt;

begin

writeln('Chao cac ban');

readln;

end.

 

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.

17 tháng 3 2022

Program Tinh _gia_tri_bieu_thuc;

 Uses CRT;

Var x: Real;

Begin

Clrscr;

​readln(x);

Writeln(‘Gia tri bieu thuc 12*x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3');

Write(‘Nhap gia tri x:  ’); 

            Readln

            End.

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