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.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p;
int main()
{
cin>>a>>b>>c;
p=a+b+c;
cout<<fixed<<setprecision(2)<<p;
return 0;
}
uses crt;
var a:array[1..10000]of integer;
n,i,t,dem:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<10000);
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until (a[i]<=109);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so am la: ',t/dem:4:2);
readln;
end.
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
2)
Program Cvi_Dtich_Hthang;
Var a, b, c, d, h, S, P : Real;
Begin
writeln ('nhap a');
readln (a);
writeln ('nhap b');
readln (b);
writeln ('nhap c');
readln (c);
writeln ('nhap d');
readln (d);
writeln ('nhap h');
readln (h);
P = a + b + c + d
S = (a + b ) * h / 2
writeln ( 'Chu vi cua hinh thang la, P : 6 : 1);
writeln ( 'Dien tich cua hình thang la, S : 6 : 1);
readln;
readln
End.
(Mk ko bt đúng hết toàn bộ ko nhưg mk nghĩa là đúng >90% !! ^^)
(Mk hi vọng bn sẽ bấm tick cho mk! Mk đã cố gắng hết sức dù chỉ 1 câu!!)
Nếu có j thắc mắc thì bình luận bên dưới cho mk nhé! Thank you!! ^o^
1;
program bai1;
uses crt;
var a,b,c:longint;
begin
clrsrc;
write('Nhap so a= ');readln(a);
write('Nhap so b= ');readln(b);
c:=a+b;
writeln(a,'+',b,'= ',c);
readln
end.
ok bạn.............
uses crt;
var a,b,c,d,tu,msc,ucln,i:integer;
begin
clrscr;
write('Nhap tu cua phan so thu 1:'); readln(a);
repeat
write('Nhap mau cua phan so thu 1:'); readln(b);
until b<>0;
write('Nhap tu cua phan so thu 2:'); readln(c);
repeat
write('Nhap mau cua phan so thu 2:'); readln(d);
until d<>0;
msc:=b*d;
tu:=a*d+b*c;
ucln:=1;
if msc<tu then
begin
for i:=1 to msc do
if (msc mod i=0) and (tu mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
if msc=tu then ucln:=tu;
if msc>tu then
begin
for i:=1 to tu do
if (msc mod i=0) and (tu mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
if (msc div ucln)=1 then writeln(a,'/',b,'+',c,'/',d,'=',tu div ucln)
else writeln(a,'/',b,'+',c,'/',d,'=',tu div ucln,'/',msc div ucln);
readln;
end.
program hieups; var a,b,c,d,msc: longint; function UCLN(a,b: longint): longint; var r: longint; begin r := a mod b; while r <> 0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure Output; var t: longint; begin if (a mod msc = 0) then write(a div msc) else begin t := UCLN(a,msc); a := a div t; msc := msc div t; if msc < 0 then write(-a,'/',abs(msc)) else write(a,'/',msc); end; end; begin readln(a,b,c,d); msc := b * d; a := (a * d) - (c * b); Output; end.