Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Vũ Hạ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

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

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Phông
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2020 lúc 21:08

a) var a:real;

b:string;

a:=20.5;

readln(b);

b) var x:string;

y:integer;

x:='Ha Noi'

readln(y);

Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Quân Chí
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 7:14

a) var cannang:array[10..100] of real;

b) a[7]:=20;

Huyền Hồ
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2023 lúc 11:09

var a:array[1..500]of real;

Utfg aghjn
Xem chi tiết
Bảo thy
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:34

Câu 1: Cú pháp khai báo mảng trong pascal:

Var <tên mảng>:array[1..n] of <kiểu dữ liệu>;

Cây 2: Khai báo mảng c gồm 20 phần tử kiểu số thực:

Var c:array[1..20] of real;

hạnh trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 11:49

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('B[',i,']='); readln(b[i]);

end;

readln;

end.

Ngô Thị Thùy Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

a) var a:array[1..50]of real;

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

b) a[5]:=8;

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

c) readln(a[2]);