Uses crt;varx:integer;s:real;beginclrscr;write('x=');read(x);s:=x*x;writeln('resultat=',s);end.
I - Стиль линии
II. - Толщина линии
III. - Цвет линии
IV. - Настройка границ ячейки (границы сверху, снизу, слева и т. д.)
Решение показано в прилагаемом файле.
В столбец A и в строку 2 нужно занести длины сторон от 1 до 10.
Значения периметра в остальных ячейках (начиная с B3) вычисляются по формуле вида: =2*($A3+B$2)
Формула записывается один раз, после чего её нужно скопировать (протяжкой) на все остальные ячейки диапазона B3:K12
Для вычисления площади все действия аналогичны. Формула: =$A3*B$2
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var R := Sqrt(ReadReal('x=')+Pi/4);
R.Println;
end.
<h2>Пример</h2><h3>x= 45.3243</h3><h3>6.79041222337771 </h3>
<span>1 килобайт = 1024 байта
1 мегабайт = 1024 килобайта = 1024*1024 байт = 1048576 байт</span>