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 Bai1;

uses crt;

var x,y:integer;

begin

write('nhap vao gia tri cua x:');

readln(x);

write('nhap vao gia tri cua y:'); 

readln(y);

write('Tong cua hai so x va y la: ',x+y);

readln;

end.

Program Bai1;

uses crt;

var x,y:integer;

begin

write('nhap vao gia tri cua x:');

readln(x);

write('nhap vao gia tri cua y:'); 

readln(y);

write('Tong cua hai so x va y la: ',x+y);

readln;

end.

8 tháng 5 2023

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

8 tháng 5 2023

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

21 tháng 8 2018

a) uses crt;

b) var dt, r: real;

c) Thiếu readln(r);

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

29 tháng 8 2023

Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.

Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.

Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.

Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

14 tháng 5 2022

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

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.

tự làm đi hỏi cm m à?

SyntaxError: expected ':' Dòng 4
Thêm dấu ":" sau điều kiện