Những câu hỏi liên quan
PT
Xem chi tiết
NT
16 tháng 11 2021 lúc 23:45

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(2*(a+b):4:2);

writeln(a*b:4:2);

readln;

end.

Bình luận (0)
PT
Xem chi tiết
NV
16 tháng 11 2021 lúc 16:47

Program Chu_nhat; uses crt;

Var a, b, S, CV: real;

Begin    

 Write('Nhap chieu dai:'); readln(a);      

Write('Nhap chieu rong:'); readln(b);  

   S := a*b;      

CV := (a+b)*2;    

 Writeln('Dien tich hinh chu nhat la:',S:3:2);  

   Writeln('Chu vi hinh chu nhat la:',CV:3:2);    

 readln;

end.

 

 

Bình luận (0)
H24
23 tháng 5 2022 lúc 11:58

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: 

Bình luận (0)
PP
Xem chi tiết
NT
13 tháng 11 2021 lúc 0:08

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

Bình luận (0)
H24
23 tháng 5 2022 lúc 12:03

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

 

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

Bình luận (0)
H24
Xem chi tiết
NT
8 tháng 11 2021 lúc 23:27

Đề thiếu rồi bạn

Bình luận (0)
DC
Xem chi tiết
DT
6 tháng 5 2021 lúc 23:54

1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.

Bình luận (0)
NT
7 tháng 5 2021 lúc 21:19

Câu 2: 

uses crt;

var a:array[1..30]of integer;

i,n,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

kt:=0;

for i:=1 to n-1 do 

if a[i]>=a[j] then kt:=1;

if kt=0 then writeln('Day la day so khong giam')

else writeln('Day khong la day so khong giam');

readln;

end.

Bình luận (0)
VA
12 tháng 4 2023 lúc 20:27

hi

Bình luận (0)
TL
Xem chi tiết
NT
6 tháng 11 2021 lúc 0:18

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

cout<<fixed<<setprecision(2)<<a*a;

return 0;

}

Bình luận (0)
H24
23 tháng 5 2022 lúc 12:08

program hinhvuong;

uses crt;

var a,s:real;

begin

clrscr;

write('Nhap do dai canh a: ');

readln(a);

if (a>0) then

begin

 s:=a*a;

 write('Dien tich hinh vuong do la: ',s:1:2);

end;

readln;

end.

Bình luận (0)
BT
Xem chi tiết
H24
23 tháng 5 2022 lúc 12:26

program tinh;

uses crt;

var S,i,n:integer;

      A: real;

begin

clrscr;

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

i:=10;

S:=0;

for i:10 to n do

begin

S:=S+i;

i:=i+5;

end;

S:=S+n; 

A:=S/3;

write('Ket qua cua S la: ',S);

writeln;

write('Ket qua cua A la: ',A:1:1);

readln;

end.

 

Bình luận (0)
TU
Xem chi tiết
NT
26 tháng 3 2021 lúc 20:05

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
NT
26 tháng 3 2021 lúc 20:07

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
H24
3 tháng 1 2022 lúc 20:13

alo

Bình luận (0)
H24
Xem chi tiết
H24
2 tháng 3 2022 lúc 15:22

tách ra chứ e =)

Bình luận (1)
H24
2 tháng 3 2022 lúc 15:23

Đăng từng cái cho dễ nhìn nha

Bình luận (1)
TA
2 tháng 3 2022 lúc 15:31

tách ra bn

Bình luận (0)