Những câu hỏi liên quan
Alice
Xem chi tiết
Nguyễn Thu Hiền
Xem chi tiết
SukhoiSu-35
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.

 
Bình luận (0)
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.

Bình luận (0)
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.  

Bình luận (0)
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

Bình luận (0)
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;

Bình luận (0)
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

Bình luận (0)
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.

Bình luận (0)
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ở.

Bình luận (0)
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.

Bình luận (0)