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
TN
3
BA
17 tháng 7 2021
Bài 4
uses crt;
var a,b: integer;
c,s,d:real;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then
begin
c:=sqrt(a*a+b*b);
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(c:4:2,' ',s:4:2);
end
else writeln('nhap lai');
readln
end.
BA
17 tháng 7 2021
Bài 5
uses crt;
var r: integer;
s,t: real;
begin
clrscr;
readln(r);
s:=r*r*3.14;
t:=2*3.14*r;
writeln(s:4:2,' ',t:4:2);
readln
end.
25 tháng 4 2021
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
25 tháng 4 2021
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
H9
HT.Phong (9A5)
CTVHS
13 tháng 3 2023
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
ML
13 tháng 3 2023
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
NB
3 tháng 5 2023
C1;
a. Số lần lặp của vòng lặp for i:= -5 to 15 là: 21 (15 - (-5) + 1)
b. Số lần lặp của vòng lặp for i:= 9 to 28 là: 20 (28 - 9 + 1)
C2:
a. Số lần lặp của vòng lặp for i:= 0 to 25 là: 26 (25 - 0 + 1)
b. Số lần lặp của vòng lặp for i:= -7 to 12 là: 20 (12 - (-7) + 1)
KV
3 tháng 5 2023
Câu 1:
a) Số lần lặp:
15 - (-5) + 1 = 21 lần
b) Số lần lặp:
28 - 9 + 1 = 20 lần
Câu 2:
a) Số lần lặp:
25 - 0 + 1 = 26 lần
b) Số lần lặp:
12 - (-7) + 1 = 20 lần
QN
0
DT
0
a) Sai
b) Sai
c) đúng
d) đúng