Где-то неподалеку от центра Теней – этот район до сих пор не целиком нанесен на карту – расположен небольшой дворик. По крайней мере, здесь на стенках горят факелы, но проливаемый ими свет – это свет самих Теней: скупой, красноватый, с темной сердцевиной. Напишите функцию shadow(), которая из Света сделает Тень.
В глобальной переменной district находится кортеж строк.
Функция принимает произвольное количество аргументов строк и именованный параметр slice со значением по умолчанию 3.
Если у аргумента функции и стоящего на том же месте элемента кортежа есть общие символы, если на регистр не обращать внимания, то элемент кортежа заменяется на срез от начала аргумента длиной, равной значению параметра slice.
Функция возвращает сумму исходных длин измененных элементов кортежа.
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;
End.
program test;
var
a:array[1..10,1..10] of integer;
min,max,i,i1,sum,sum2:integer;
begin
for i:=1 to 10 do begin
for i1:=1 to 10 do begin
a[i,i1]:=random(1,100);
write(a[i,i1]:4);
end;
writeln;
end;
writeln('ГЛАВНАЯ ДИАГОНАЛЬ');
min:=a[1,1];
for i:=1 to 10 do begin
for i1:=i to 10 do begin
sum:=sum+a[i,i1];
if a[i,i1]>max then max:=a[i,i1];
if a[i,i1]<min then min:=a[i,i1];
end;
end;
writeln('сумма ',sum);
writeln('Максимальное ',max);
writeln('Минимальное ',min);
sum:=0;
writeln('ПОБОЧНАЯ ДИАГОНАЛЬ');
min:=a[1,1];
for i:=10 downto 1 do begin
for i1:=1 to i do begin
sum:=sum+a[i,i1];
if a[i,i1]>max then max:=a[i,i1];
if a[i,i1]<min then min:=a[i,i1];
end;
end;
writeln('сумма ',sum);
writeln('Максимальное ',max);
writeln('Минимальное ',min);
end.