<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
1) создание, подготовка к работе, а так же определение параметров функции
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего
б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.
если function()>0 то вывести число иначе вывести "отрицательное"
28800 бит = 3600 байт = 3,515625 Кбт
<span>IP-адрес
......................
</span>
Var
x,y:real;
begin
readln(x,y);
if y>=-(sqr(x-1)) then
writeln('Точка попадает')
else
writeln('Точка не попадает');
<span>end.</span>
