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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
17 tháng 6 2020
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.
Câu 2:
a) var a:array[1..5]of real;
b) var a:array[1..50]of integer;
c) readln(a[2]);
9 tháng 1 2022
Câu 1:
readln hoặc read được dùng để đọc dữ liệu
Câu 2: Kiểu dữ liệu byte
Câu 3:
Có nghĩa khai báo a kiểu thực, còn b là kiểu kí tự
18 tháng 6 2020
Câu 1:
Câu 2:
a) A:array[1..5] of Real;
b) A[5]:=8;
c) A:array[1..50] of Integer;
d) Readln(A[2]);
14 tháng 6 2020
1: var b:array[5..95]of real;
2: for i:=10 to 20 do
begin
write('B[',i,']='); readln(b[i]);
end;
7 tháng 6 2020
a: var diem:array[1..200]of real;
b) var x:array[1..200]of integer;
A
chac ko vậy ạ?