viet chuong trinh tinh dien tich tam giac voi chieu cao va canh day la 2 so nguyen duong nhap tu ban phim
Giup vs 1 Gp cho cau tl dung
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
4 tháng 12 2016
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
8 tháng 12 2016
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
20 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
12 tháng 11 2021
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
ML
21 tháng 4 2019
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
GH
14 tháng 4 2017
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
demtu:=1;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
GH
24 tháng 4 2017
bài này mới đúng nè bạn:
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
X:=X+' ';
demtu:=0;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
delete(X,length(X),1);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
22 tháng 3 2021
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
1 tháng 2 2016
Diện tích hình tam giác là:
5,6 x 2,3 : 2 = 6,44
Đáp số : 6,44
S=1/2.a.h