Рассмотрим выражение ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9))
1) ОСТАТ (23;9) находит остаток от деления на 9. Результатом будет число 5, т.к. 5 - остаток от деления числа 23 на 9.
2) (СЦЕПИТЬ (23;9)) склеивает аргументы в строку, то есть результатом будет строка "239"
3) Т.к. ??( СЦЕПИТЬ (23;9)) складывают с числом 5, то и ??( СЦЕПИТЬ (23;9)) должно быть числом, иначе будет ошибка. Значит ?? - функция, которая преобразовывает строку в число, а такой функцией является ЗНАЧЕН
Рассмотрим выражение ?(ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9));2)
1) ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9)) = 244, следовательно выражение можно переписать как ?(244;2)
2) Функция ? принимает 2 аргумента, а результатом работы должно быть 24. Видим, что 24 - это первые 2 цифры первого аргумента, то есть первые 2 цифры числа 244. Подходит функция ЛЕВСИМВ, которая вырезает из первого аргумента то количество символов, которое указано во втором аргументе.
Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
?? = ЗНАЧЕН
? = ЛЕВСИМВ
Объяснение:
Рассмотрим выражение ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9))
1) ОСТАТ (23;9) находит остаток от деления на 9. Результатом будет число 5, т.к. 5 - остаток от деления числа 23 на 9.
2) (СЦЕПИТЬ (23;9)) склеивает аргументы в строку, то есть результатом будет строка "239"
3) Т.к. ??( СЦЕПИТЬ (23;9)) складывают с числом 5, то и ??( СЦЕПИТЬ (23;9)) должно быть числом, иначе будет ошибка. Значит ?? - функция, которая преобразовывает строку в число, а такой функцией является ЗНАЧЕН
4) ОСТАТ (23;9)+ЗНАЧЕН( СЦЕПИТЬ (23;9)) = 5 + 239 = 244
Рассмотрим выражение ?(ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9));2)
1) ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9)) = 244, следовательно выражение можно переписать как ?(244;2)
2) Функция ? принимает 2 аргумента, а результатом работы должно быть 24. Видим, что 24 - это первые 2 цифры первого аргумента, то есть первые 2 цифры числа 244. Подходит функция ЛЕВСИМВ, которая вырезает из первого аргумента то количество символов, которое указано во втором аргументе.