Viết chương trình pascal (có thể sử dụng biến nhớ ). Tính chu vi hình vuông dừng 5 giây để xem kết quả.
Bạn nào giải giúp mik bài này rất là may mắn nha
Cảm ơn rất nhiều ạ ^;^
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.
Những câu hỏi liên quan
7 tháng 11 2021
#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;
}
30 tháng 12 2021
2:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writen(a*b);
readln;
end.
30 tháng 12 2021
2:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writen(a*b);
readln;
end.
11 tháng 3 2023
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.
11 tháng 3 2023
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.
HK
1
NV
Nguyễn Việt Lâm
Giáo viên
25 tháng 3 2022
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.\)
PT
11 tháng 12 2016
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!
PT
11 tháng 12 2016
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)
3 tháng 4 2022
\(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$
uses crt;
var a:int64;
begin
clrscr;
readln(a);
writeln(a*4);
readln;
end.
dừng 5 giây nx bạn ư