procedure pr_max(a,b,c:integer; var max:integer);
begin
if a>b then max:=a else max:=b;
if c>max then max:=c;
end;
var m:integer;
begin
pr_max(15,47,24,m);
writeln(m);
end.
Результат:
47
Решение смотрите во вложении
Проявить ее ................
Var s: string;
n,m: integer;
begin
write('строка: '); readln(s);
n:=length(s);
m:=n div 2;
if n mod 2 = 1 then delete(s,m+1,1)
else delete(s,m,2);
writeln(s)
end.
<span>
</span>
Дискретный сигнал - информационный сигнал. Сигнал называется дискретным, если он может принимать лишь конечное число значений.