TL
1
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
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.
TV
0
2 tháng 9 2017
Đề thi HSG Tin 8 năm học 09-10 (Quế Sơn) - Tin học 8 - Lê Nho Duyệt ...
Trên mạng nhiều lắm bn
VD
27 tháng 7 2018
uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln('nhap so hoc sinh: ');readln(n);
writeln('nhap diem');
for i:=1 to n do
begin
write('a[',i,']');readln(a[i]);
end;
for i:=1 to n do write('hoc sinh ',i,' duoc ',a[i],' diem mon tin');
readln
end.
bài này mình chưa thử trên máy nên không biết đúng hay sai =v=
26 tháng 6 2020
uses crt;
var a:array[1..100]of real;
n,i,t:integer;
begin
clrscr;
write('Nhap so hoc sinh='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem hoc ki mon Tin cho hoc sinh thu ',i,'='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
writeln('Diem cua hoc sinh thu ',i,'=',a[i]:4:2);
readln;
end.
cần đề hsg ko
minh có nè
trời