Những câu hỏi liên quan
Ngochuynh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:23

#include <bits/stdc++.h>

using namespace std;

double a,s;

int main()

{

cin>>a;

s=1/2*a*a;

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bình luận (0)
Thị Thảo Ly Hoàng
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 12:21

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

Bình luận (0)
HT.Phong (9A5)
13 tháng 3 2023 lúc 12:27

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=i*i;

Writeln(s);

readln;

end.

Bình luận (1)
Nguyễn Thùy An
Xem chi tiết
Khoa Nguyễn
Xem chi tiết
Hải Títt
Xem chi tiết
tao quen roi
3 tháng 11 2016 lúc 22:42

var a,b,s:integer;

c:word;

begin

write('nhap avà b ');

read(a,b);

s:=a*b*1/2;

c:=(a+b)*2;

writeln('dien tich la '; s );

write('chu vi la 'c);

readln

end

Bình luận (0)
Ung Chiêu Tường
25 tháng 3 2017 lúc 8:53

program CVDT;

uses crt;

var a,b,c,P,S;

begin

Writeln('Nhap a va b');

Readln(a,b);

c:= a*a +b*b; S:= (a*b)/2;

Writeln('Dien tich tam giac vuong la ',S);

writeln('Chu vi tam giac vuong la ', SQRT(c);

Readln;

end.

Bình luận (0)
ánh tuyết nguyễn
Xem chi tiết
Mỹ Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2020 lúc 21:16

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Bình luận (0)
nguyễn thị cẩm tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 14:45

2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bình luận (0)
VŨ THANH HÀ
Xem chi tiết
Võ Đức Dũng
18 tháng 10 2021 lúc 17:03

Program dung;

uses crt;

var s,a,b: real;

begin

clrscr;

write('Nhap a; b : '); readln(a,b);

s:=(a*b)/2;

writeln('Dien tich tam giac vuong la: ',s:1:2);

readln;

end.

Bình luận (0)