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
Alice
Xem chi tiết
Nguyễn Thu Hiền
Xem chi tiết
Buddy
17 tháng 9 2021 lúc 22:53

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

 
Nguyễn Nghĩa
Xem chi tiết
Nguyễn Văn Toàn
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 7:46

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

Nguyễn An Ninh
10 tháng 5 2023 lúc 7:47

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

gia đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:56

Câu 8: A

Câu 9: B

Câu 11: B

Châu Xuân Thảo
Xem chi tiết
✟şin❖
13 tháng 12 2021 lúc 13:57

Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :

A. x:= 2.5;

B. b:= (a=4) or (c=7); <= B

C. c:= pi*12;

D. a:=3,12;

Minh Lệ
13 tháng 12 2021 lúc 16:33

B. sai vì đây là câu lệnh logic,

D. sai vì trong pascal phần thập phân và phần nguyên ngăn cách nhau bởi dấu chấm không phải dấu phẩy

Thanh Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 0:02

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

Minh Lệ
Xem chi tiết
Thanh An
22 tháng 8 2023 lúc 11:32

Có thể coi mọi phần mềm viết bằng Python đều là phần mềm nguồn mở.

foxbi
Xem chi tiết
Kiều Vũ Linh
18 tháng 3 2023 lúc 7:55

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.