L
3
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
NT
2
27 tháng 4 2017
c)
uses crt;
var i, n: integer;
a: array [1..100] of integer;
begin
write(' nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln(a[i]);
readln
end.
d)
uses crt;
var i, le, chan: integer;
a: array[1..20] of integer;
begin
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to 20 do
if a[i] mod 2 <> 0 then
writeln((a[i]) ,' la so le');
for i:=1 to 20 do
if a[i] mod 2 = 0 then
writeln((a[i]) ,' la so chan');
readln
end.
GH
18 tháng 7 2017
b)
uses crt;
var n,i:word;
T:longint;
begin
clrscr;
write('nhap n:');readln(n);
T:=1;
for i:=2 to n do T:=T*(1+i);
write('T = ',T);
readln;
end.
9 tháng 11 2021
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
9 tháng 11 2021
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
NV
Nguyễn Việt Dũng
CTVVIP
2 tháng 8 2023
Tham khảo:
- Theo em, bạn An có cần nhập từng số thứ tự của danh sách.
- Với danh sách có hàng trăm mục thì chỉ cần gạch đầu dòng và sắp xếp các danh mục theo thứ tự
ML
1 tháng 4 2022
Program HOC24;
var Toan,Ly,Tin,TBMToan,TBMLy,TBMTin: real;
i,n: byte;
begin
write('Nhap so ban hoc sinh trong lop: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan; Ly; Tin cua ban thu ',i,': ');
readln(Toan[i],Ly[i],Tin[i]);
end;
TBMToan:=0; TBMLy:=0; TBMTin:=0;
For i:=1 to n do
begin
TBMToan:=TBMToan+Toan[i];
TBMLy:=TBMLy+Ly[i];
TBMTin:=TBMTin+Tin[i];
end;
writeln('Diem trung binh mon Toan la: ',TBMToan:5:1);
writeln('Diem trung binh mon Ly la: ',TBMLy:5:1);
writeln('Diem trung binh mon Tin la: ',TBMTin:5:1);
For i:=1 to n do
writeln('Diem trung binh 3 mon cua ban thu ',i,' la: ',TBMToan+TBMLy+TBMTin:5:1);
Readln
end.
L
21 tháng 10 2016
Chưa chắc giống nhau nhưng tham khảo :
Câu 1 : Viết các phép tính sau trong pascal :
a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)
b) \(a^2+b^2-5ab-\frac{43}{3}\)
c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)
Câu 2 :
Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.
Câu 3 :
Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.
cái này là viết chương trình ra luôn hay là tính N k thôi ....
Viết chương trình luôn :))