TEMPERATURA[1]= -19
TEMPERATURA[2]= -19
TEMPERATURA[3]= -10
TEMPERATURA[4]= 0
TEMPERATURA[5]= 11
TEMPERATURA[6]= 15
TEMPERATURA[7]= 21
TEMPERATURA[8]=
22
TEMPERATURA[9]=12
TEMPERATURA[10]=6
TEMPERATURA[11]=-3
TEMPERATURA[12]=-10
По сути нужно найти набор букв "child" и добавить сзади "ren".
1) Начало
2) Ввод числа n и массива s(n)
2.1) k = 0
3) Цикл по i от 1 до n-4
3.1) Если (s(i)="c") и (s(i+1)="h") и (s(i+2)="i") и (s(i+3)="l") и (s(i+4)="d"), то
3.1.1) k = k + 3
3.1.2) Переопределяем размер массива на s(n+k)
3.1.3) Цикл по j от i+5 до n
// Отодвигаем на 3 знака все буквы после s(i+4)="d"
3.1.3.1) s(j+3) = s(j)
3.1.3.2) Конец цикла по j
3.1.4) s(i+5)="r"; s(i+6)="e"; s(i+7)="n"
3.1.5) Конец Если
3.2) Конец цикла по i
4) Вывод массива s(n+k)
5) Конец
В первом мы повторяем количество раз от 6 до 12 ,то есть 10+10+10+10+10+10 ,ответ будет 60
а во втором мы ищем нужное нам значения начиная с 1 , в условии написано ,если Dat(k)<25 то мы присваем m этот Dat, то есть ответ 20
//PascalABC.NET 3.2 сборка 1318
Var
SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];
ArrNotExist:array of char;
count,i:integer;
Num:string;
begin
readln(Num);
for i:=1 to length(Num) do
SeNotExist-=[Num[i]];
foreach var x in SeNotExist do
begin
inc(count);
setlength(ArrNotExist,count);
ArrNotExist[count-1]:=x;
end;
sort(ArrNotExist);
writeln(count);
ArrNotExist.Print(' ');
end.
Пример ввода:
81233214554
Пример вывода:
4
0 6 7 9
Хм давайте размышлять логически.
ГИС = Геоинформационные системы
ГИС-технологии - Геоинформационные системы технологии - звучит как-то странно.
Скорее всего все зависит от контекста. Под технологиями может подразумеваться более реальное воплощение, некий конкретный девайс например и тп.
А может быть просто добавлено для красоты звучания
