Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
phạm minh thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

phạm minh thư
Xem chi tiết
nguyen thi vang
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.

 

 

Nhung
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ả: 

phuongtra pham
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Nhung
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.

User
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 11 2021 lúc 23:27

Đề thiếu rồi bạn

Đoàn Khánh Chi
Xem chi tiết
Đỗ Thanh Tuyến
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.

Nguyễn Lê Phước Thịnh
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.

võ nguyên đức anh
12 tháng 4 2023 lúc 20:27

hi

thai viet luong
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

Nhung
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ùi Phương Thảo
Xem chi tiết
Nhung
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.

 

Thư Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Nguyễn Lê Phước Thịnh
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.

NgocTuan
3 tháng 1 2022 lúc 20:13

alo

Iridescent
Xem chi tiết
Dark_Hole
2 tháng 3 2022 lúc 15:22

tách ra chứ e =)

qlamm
2 tháng 3 2022 lúc 15:23

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

Tạ Tuấn Anh
2 tháng 3 2022 lúc 15:31

tách ra bn