#include <bits/stdc++.h>

using namespace std;

double a,cv,dt;

int main()

{

cin>>a;

cv=a*4;

dt=a*a;

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<dt;

return 0;

}

2: 

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writen(a*b);

readln;

end.

2: 

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writen(a*b);

readln;

end.

Câu 1:

program mangsonguyen;

var

     a: array[1..100] of integer;

     i, n: integer;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Mang vua nhap la:');

     for i := 1 to n do

          write(a[i], ' ');

end.

Câu 2: 

program trungbinhcong;

var

     a: array[1..100] of integer;

     i, n, k, sum: integer;

     avg: real;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Nhap so k: ');

     readln(k);

     sum := 0;

     for i := 1 to n do

     begin

          if a[i] <= k then

               sum := sum + a[i];

     end;

     if sum > 0 then

     begin

          avg := sum / n;

          writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);

     end

     else

     begin

          writeln('Khong co phan tu nao co gia tri <= ', k);

     end;

end.

Câu 3: 

program DemSoNguyenTo;

var

     a: array [1..100] of integer;

     i, j, n, count: integer;

     laSoNguyenTo: boolean;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     write('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     count := 0;

     writeln('Cac so nguyen to trong mang la: ');

     for i := 1 to n do

     begin

          laSoNguyenTo := true;

          for j := 2 to (a[i] div 2) do

          begin

               if (a[i] mod j = 0) then

               begin

                    laSoNguyenTo := false;

                    break;

               end;

          end;

          if laSoNguyenTo and (a[i] > 1) then

          begin

               writeln(a[i]);

               count := count + 1;

          end;

     end;

     writeln('Tong so cac so nguyen to la: ', count);

     readln;

end.

Gọi thời gian làm 1 mình xong công việc của người thứ nhất là x giờ (x>0)

Thời gian làm 1 mình xong công việc của người 2 là y giờ (y>0)

Trong 1h người thứ nhất làm 1 mình được \(\dfrac{1}{x}\) phần công việc, người 2 làm 1 mình được \(\dfrac{1}{y}\) phần công việc

Do 2 người cùng làm trong 18h thì xong nên:

\(18\left(\dfrac{1}{x}+\dfrac{1}{y}\right)=1\Rightarrow\dfrac{1}{x}+\dfrac{1}{y}=\dfrac{1}{18}\)

Người thứ nhất làm 4h được: \(\dfrac{4}{x}\) phần công việc

Người thứ 2 làm trong 7h được: \(\dfrac{7}{y}\) phần công việc

Do... trong 7h được 1/3 công việc nên: \(\dfrac{4}{x}+\dfrac{7}{y}=\dfrac{1}{3}\)

Ta được hệ: \(\left\{{}\begin{matrix}\dfrac{1}{x}+\dfrac{1}{y}=\dfrac{1}{18}\\\dfrac{4}{x}+\dfrac{7}{y}=\dfrac{1}{3}\end{matrix}\right.\) \(\Rightarrow\left\{{}\begin{matrix}\dfrac{1}{x}=\dfrac{1}{54}\\\dfrac{1}{y}=\dfrac{1}{27}\end{matrix}\right.\)

\(\Rightarrow\left\{{}\begin{matrix}x=54\\y=27\end{matrix}\right.\)

CÂU 1:

program hinhchunhat;

var a,b,S,C: real;

begin

Write('Nhapdodaicanhthuchata=');readln(a);

Write('Nhapdodaicanhthuhaib=');readln(b);

S:= a*b;

C:=(a+b)*2;

Writeln('Dientichhinhchunhatla:',S);

Writeln('Chuvihinhchunhatla:',C);

readln

end.

CHÚC BẠN HỌC TỐT!

CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Chuvihinhtronla:',2*pi*r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

CHÚC BẠN HỌC TỐT (x2)

B1:Biết chiều dài và chiều rộng của hình chữ nhật.

B2:Lấy chiều dài nhân rộng.

B3:Viết đáp số.

B4:Viết chương trình và kết thúc thuật toán.

câu 2 is => are

5 playing => play

còn lại ok

\(x^2-x+1-m=0\left(1\right)\\ \text{PT có 2 nghiệm }x_1,x_2\\ \Leftrightarrow\Delta=1-4\left(1-m\right)\ge0\\ \Leftrightarrow4m-3\ge0\Leftrightarrow m\ge\dfrac{3}{4}\\ \text{Vi-ét: }\left\{{}\begin{matrix}x_1+x_2=1\\x_1x_2=1-m\end{matrix}\right.\\ \text{Ta có }5\left(\dfrac{1}{x_1}+\dfrac{1}{x_2}\right)-x_1x_2+4=0\\ \Leftrightarrow5\cdot\dfrac{x_1+x_2}{x_1x_2}-x_1x_2+4=0\\ \Leftrightarrow\dfrac{5}{1-m}+m-1+4=0\\ \Leftrightarrow\dfrac{5}{1-m}+m+3=0\\ \Leftrightarrow5+\left(1-m\right)\left(m+3\right)=0\\ \Leftrightarrow m^2+2m-8=0\\ \Leftrightarrow m^2-2m+4m-8=0\\ \Leftrightarrow\left(m-2\right)\left(m+4\right)=0\\ \Leftrightarrow\left[{}\begin{matrix}m=2\left(n\right)\\m=-4\left(l\right)\end{matrix}\right.\)

Vậy $m=2$