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.

17 tháng 12 2021

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 99 do 

  begin

write(i:4);

if (i%10=9) then writeln;

end;

readln;

end.

19 tháng 12 2021

Câu 1: B

16 tháng 12 2021

TL :

Đáp án C

HT

@@@@@@@@@

16 tháng 12 2021

Program kiemtra: -> kết thúc phải là dấu ';', sửa: Program kiemtra;

Use crt -> thiếu dấu ';' khi kết thúc 1 lệnh, sửa: Use crt;

Var a, b: interger;

c: integerl; -> Sai tên kiểu dữ liệu, sửa: c: integer;

Begin

Clrscr;

a: = 10;

b = 3; -> lệnh gán sai, sửa: b:=3;

c: = a/b -> thiếu ';' khi kết thúc 1 câu lệnh sửa: c:=a/b;

Writeln(‘Gia tri cua c = ‘,c);

Readln;

End -> kết thúc thiếu dấu '.'. sửa: End.

16 tháng 12 2021
ai giải giúp mk vs ạ

undefined

6
16 tháng 12 2021

Ai giải được thì giúp mình giải bài này đi, mình cần đáp án đúng ngay lập tức đây

16 tháng 12 2021

Program HOC24;

var a: integer;

begin

write('Nhap a: '); readln(a);

if a=0 then write('a la so 0') else

if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');

readln

end.

17 tháng 12 2021

cảm ơn!

16 tháng 12 2021

rồi sao nx ?????????

16 tháng 12 2021

đề bài là gì dậy =))?

16 tháng 12 2021

báo cáo, robux cái jj

16 tháng 12 2021

ai thương ?