Xem chi tiết
TT
Xem chi tiết
H24
Xem chi tiết
H24
5 tháng 10 2016 lúc 17:59

À thôi em nghĩ ra rồi =))) Mọi người trả lời thoải mái

Bình luận (0)
TN
16 tháng 10 2018 lúc 22:30

Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!

Bình luận (0)
H24
Xem chi tiết
ML
5 tháng 6 2020 lúc 13:58

Program HOC24;

var i,d,n: integer;

begin

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

i:=1; d:=0;

while i<=n do

begin

if i mod 2=1 then d:=d+1;

i:=i+1;

end;

write(d);

readln

end.

Bình luận (0)
H24
Xem chi tiết
ML
5 tháng 6 2020 lúc 14:00

Program HOC24;

var i,n: integer;

t: longint;

begin

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

i:=1; t:=0;

while i<=n do

begin

if i mod 2=0 then t:=t+i;

i:=i+1;

end;

write(t);

readln

end.

Bình luận (0)
NH
Xem chi tiết
H24
5 tháng 10 2016 lúc 17:56

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

Bình luận (1)
NT
10 tháng 10 2016 lúc 9:03

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

Bình luận (1)
LK
7 tháng 10 2016 lúc 22:23

các biến cần khai báo:

a) S,a,h:real;

Bình luận (0)
H24
Xem chi tiết
BY
9 tháng 10 2016 lúc 22:55

uses crt;

var a,b:real;

begin 

          clrscr;

          write('nhap a'); readln(a);

          write('nhap b'); readln(b);

          If a > 0 and b > 0 then write('Tong a va b: ',a+b);

End.

(đưa vào Pascal duyệt CT xem có mắc lỗi gì ko...nếu sai thì tự sửa ^^!)

 

Bình luận (1)
NH
Xem chi tiết
DC
2 tháng 10 2016 lúc 19:18

đổi được nhưng sau 12h  ms cập nhật

Bình luận (1)
HH
2 tháng 10 2016 lúc 21:09

đổi đc nhưng từ lúc đổi 24h sau mới cập nhập đc

Bình luận (0)
PT
11 tháng 10 2016 lúc 17:22

mk cx thế 

Bình luận (2)
TT
Xem chi tiết
DC
30 tháng 9 2016 lúc 19:23

Truc Thanh chương trình Turbo Pascal pn tải về máy tính của pn r thì không mở rộng đk đâu. 

Bình luận (0)
DV
1 tháng 10 2016 lúc 17:01

Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter

Bình luận (0)
LK
7 tháng 10 2016 lúc 22:25

nó chỉ to bằng đấy thôi, không mở rộng được đâu bạn ơi

 

Bình luận (2)
BK
Xem chi tiết
VT
29 tháng 9 2016 lúc 21:34

khi cần máy đọc nhiều biến

Bình luận (0)
ND
30 tháng 9 2016 lúc 22:19

Lệnh read dùng để đọc nha!

 

Bình luận (0)
LH
2 tháng 10 2016 lúc 21:01

đọc 

 

Bình luận (0)
BK
Xem chi tiết
VT
29 tháng 9 2016 lúc 21:35

khi cần máy đọc nhiều biến

Bình luận (0)
NT
29 tháng 9 2016 lúc 19:43

dùng để đọc

Bình luận (0)
NT
29 tháng 9 2016 lúc 19:46

Read -> translate dịch nghĩa là đọc 

Bình luận (0)
BK
29 tháng 9 2016 lúc 19:53

khi nào thì sử dụng read

 

Bình luận (0)