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.

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien h tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

9 tháng 12 2020

INPUT: nhập số tự nhiên bất kì a

OUTPUT: chạy vòng For..to..do tìm các ước rồi in ra màn hình.

9 tháng 12 2020

program h;

uses crt;

var a,b,h:integer;

begin

h:=0

write('so thu nhat');readln(a);

write('so thu hai');readln(b);

h:=a*b;

write('h hai so la',h);

readln

end.

7 tháng 3 2019

n=78

7 tháng 3 2019

28 tháng 2 2019

giải

program hcn;

uses crt;

var d,r,dt:longint;

cv:real;

begin

write('nhap chieu dai va chieu rong cua hcn:');

readln(d,r);

cv:=(d+r)*2;

dt:=d*r;

writeln(' chu vi hcn do la:',cv);

writeln(' dien tich hcn do la:',dt);

readln

end.