var
A,B,C,D,L,S: integer
F,K,Q:integer;
begin
writeln("введите A");
readln(A);
writeln("введитеB");
readln(B);
writeln("введитеC");
readln(C);
writeln("введитеD");
readln(D);
writeln("введите M");
readln(M);
writeln("введите N");
readln(N);
writeln("введите L");
readln(L);
writeln("введите S");
readln(S);
F:=A*4 *B - (C*D+M*N);
K:=0,01L*S;
Q:=F/K;
writeln("кол-во рулонов = ",Q );
end.
Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i<j then s:=s+a[i,j]; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Сумма всех элементов над главной диагональю = ',s); </span>
<span>end.</span>
#include<iostream>
using namespace std;
int main()
{
double d;
cin>>d;
cout<<"\nS="<<2*3.14*(d/4); // если нужна площадь , то заменить на cout<<"\nS="<<3.14*(d/4)*(d/4);
}