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.

1 tháng 4 2022

đang kiểm tra ko hỏi bài

1 tháng 4 2022

ko giúp

29 tháng 12 2022

loading...  

9 tháng 11 2021

thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko

9 tháng 11 2021

mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !

26 tháng 4 2022

Câu A đúng vì:
-Câu B vì nó không khai báo số 6 nên nó sai và không in ra được
-Câu C thì nó là 'Lop 8A' nên là kiểu dữ liệu chữ nên sẽ bị lỗi
Theo mình nghĩ là vậybucminh

20 tháng 10 2021

Anser reply image

 
20 tháng 10 2021

Làm ơn giúp em với :(

3 tháng 3 2022

a,Var S,n:longint;

Begin

Readln(n,S);

S:=0;n:=0;

While S<=10 do

begin n:=n+1; S:=S+n end;

write(S);

end.

 

21 tháng 5 2022

Lập bảng sau :

  S  i  \(ĐK:i\le5\) \(S:=S+2\)
  0  1    Đúng\(S=0+2=2\)
  2  2    Đúng\(S=2+2=4\)
  4  3    Đúng\(S=4+2=6\)
  6  4    Đúng\(S=6+2=8\)
  8  5    Đúng\(S=8+2=10\)
10  6    Sai Kết thúc vòng lặp

Vậy : Giá trị S là 10.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if (10<a[i]) and (a[i]<20) then inc(dem);

writeln(dem);

readln;

end.

13 tháng 4 2021

Em cảm ơn ạ!