viết chương trình tính diện tích của tam giác bằng ngôn ngữ lập trình pascal
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.
Những câu hỏi liên quan
25 tháng 12 2021
uses crt;
var t,s:real;
begin
clrscr;
readln(t,s);
writeln('a=',(t+s)/2);
writeln('b=',(t-s)/2);
readln;
end.
BN
2 tháng 6 2022
a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")
MN
4 tháng 2 2021
#TK
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
write(s);
readln;
end.
4 tháng 2 2021
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 97 do
s:=s+i;
writeln(s);
readln;
end.
KV
18 tháng 3 2023
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.
H9
HT.Phong (9A5)
CTVHS
18 tháng 3 2023
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
25 tháng 12 2023
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Input của chương trình là gì bạn nhỉ?