Дана сторона квадрата а найти его периметр p= 4*a a=3.40

1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.

ответ: Функция ОКРУГЛ

Осуществляет стандартное округление, а именно округляет число до ближайшего разряда с указанной точностью.

Синтаксис: =ОКРУГЛ(число; число_разрядов), где

Число – обязательный аргумент. Число либо ссылка на ячейку, его содержащую;

Число_разрядов – обязательный аргумент. Указывает, какое количество знаков после запятой необходимо оставить:

0 – округление до целого числа;

1 – округление до десятых долей;

2 – округление до сотых долей;

И т.д.

Аргумент может также принимать отрицательные числа:

-1 – округление до десятков;

-2 – округление до сотен;

И т.д.

Пример использования:

=ОКРУГЛ(5,45;0) – формула возвращает значение 5.

=ОКРУГЛ(5,45;1) – формула возвращает значение 5,5.

=ОКРУГЛ(5,45;3) – не меняет число, т.к. указанное число разрядов превышает его точность.

=ОКРУГЛ(5,45;-1) – формула возвращает значение 10.

Функция ОТБР

Отбрасывает дробную часть числа. Отличие от предыдущей функции заключается в том, что число по факту не округляется, а только усекается до указанного разряда.

Синтаксис: =ОТБР(число; [число_разрядов]), где

Число – обязательный аргумент. Число либо ссылка на ячейку с числом;

Число_разрядов – необязательный аргумент. Указывает, какое количество знаков после запятой необходимо оставить:

0 – точность до целого числа;

1 – точность до десятых долей;

2 – точность до сотых долей;

И т.д.

Пример использования:

=ОТБР(5,45;0) – формула возвращает значение 5.

=ОТБР(5,85;0) – так же возвращает значение 5.

=ОТБР(5,45;1) – возвращает значение 5,4.

=ОТБР(5,45;3) – формула не меняет число, т.к. указанное количество разрядов превышает его точность.

Функция ОКРУГЛВВЕРХ

Производит округление до ближайшего большего по модулю числа с указанной точностью.

Синтаксис: =ОКРУГЛВВЕРХ(число; число_разрядов), где

Число – обязательный аргумент. Число либо ссылка на ячейку, содержащую число;

Число_разрядов – обязательный аргумент. Указывает, какое количество знаков после запятой необходимо оставить:

0 – округление до целого числа;

1 – округление до десятых долей;

2 – округление до сотых долей;

И т.д.

Аргумент может также принимать отрицательные числа:

-1 – округление до десятков;

-2 – округление до сотен;

И т.д.

Пример использования:

=ОКРУГЛВВЕРХ(5,001;0) – формула возвращает значение 6.

=ОКРУГЛВВЕРХ(-5,001;0) – формула возвращает значение -6, т.к. -6 по модулю больше, чем -5,001 по модулю.

=ОКРУГЛВВЕРХ(5,45;1) – возвращает значение 5,5.

=ОКРУГЛВВЕРХ(5,45;3) – функция не изменяет число, т.к. требуемая разрядность превышает его точность.

=ОКРУГЛВВЕРХ(5,45;-1) – формула возвращает значение 10.

Функция ОКРУГЛВНИЗ

Аналогична предыдущей функции, за исключением того, то округляет число в меньшую сторону по модулю с указанной точностью.

Пример использования:

=ОКРУГЛВНИЗ(5,99;0) – формула возвращает значение 5.

=ОКРУГЛВНИЗ(-5,99;0) – формула возвращает значение -5, т.к. -5 по модулю меньше, чем -5,99 по модулю.

=ОКРУГЛВНИЗ(5,45;1) – функция возвращает значение 5,4.

=ОКРУГЛВНИЗ(5,45;3) – не меняет число, т.к. указанная разрядность превышает его точность.

=ОКРУГЛВНИЗ(5,45;-1) – формула возвращает значение 0.

Функция ОКРУГЛТ

Округляет число до ближайшего кратного числу, заданного вторым аргументом.

Объяснение: