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.

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.

 

24 tháng 12 2021

A sai bởi vì có kí tự trống giữa "Baitap" và "3"

25 tháng 12 2021

Chọn A

15 tháng 11 2021

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;

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.

Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:Program CT_BtDieukien2;Uses CRT;Var b : integer; tb : string;Begin                    Clrscr;                    Write(‘Nhap b:’); readln(b);                                                           ……… b mod 3 = 0……..                   ...
Đọc tiếp

Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:

Program CT_BtDieukien2;

Uses CRT;

Var b : integer; tb : string;

Begin

                    Clrscr;

                    Write(‘Nhap b:’); readln(b);

                                       

                    ……… b mod 3 = 0……..

                    Begin

                                                               

                    End

                    ………

                    Begin

                                                                   

                    End;

                    Writeln(tb);

Readln;

End.

1

#include <bits/stdc++.h>

using namespace std;

long long b;

int main()

{

cin>>b;

if (b%3==0) cout<<"3 la uoc cua b";

else cout<<"3 khong la uoc cua b";

return 0;

}

23 tháng 3 2022

1 là bn sửa hình nền

2 là mk gọi admin hoặc giáo viên khác khoá nick bn

23 tháng 3 2022

sửa kiểu j vậy?

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.

10 tháng 12 2021

Giúp mình với