Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
1.взять миску
2.открыть холодильник
3.взять корм
4.закрыть холодильник
5.наложить корм в миску
6.поставить миску собаке
7.помыть миску после того как собака поела
8.вытереть мордочку собаке
9.конец
<h2>Написано на языке PascalABC.NET</h2>
- const
- cValue = 2;
- var
- N, i: integer;
- resultNumber: real;
- begin
- Readln(N);
-
- for i := 1 to N do
- resultNumber := resultNumber + Power(cValue, i);
- Writeln(resultNumber);
- end.