Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
Сначала идет протокол, затем знаки :// , затем сервер, затем разделитель /, затем имя файла.
" http + :// + www. + <span>ftp +</span> .ru + / + index + <span>.html "
</span>Ответ: ЕЗБГДВЖА
1)9
2)12
3)31
4)4
5)2
6)1
7)0
8)10
Ответ:7,6,5,4,1,8,2,3.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024