for i: = length(s) downto 1 do {length(s) - это функция, которая определяет длину строки s; мы записываем текст записки посимвольно, начиная с последнего символа и заканчивая первым}
write(s[i]);
end.
отметь решение, как лучшее)
barkhatl-2p7
27.11.2020
Самое главное, что должно измениться — это принцип взаимодействия человека и машины. сегодня это происходит в основном посредством клавиатуры, мыши и сенсорного экрана. то есть технологий, разработанных и внедрённых ещё несколько десятилетий назад. они прекрасно справлялись с возложенными на них и будут использоваться и впредь. однако учёные и инженеры уверены, что будущее принадлежит иным технологиям, которые сегодня ещё только находятся в зачаточном состоянии. прежде всего, компьютеры будущего смогут воспринимать и анализировать изображение в реальном времени, то есть видеть окружающий мир как человек. это позволит, например, создавать системы безопасности, которые на основе анализа окружающей их обстановки смогут предсказывать теракты или стихийные бедствия. и в отличие от человека-наблюдателя, они никогда не будут уставать или терять бдительность. к тому же качественное «зрение» позволит компьютерам лучше взаимодействовать с пользователями, более полно воспринимая их жесты и мимику. системы будущего научатся также и хорошо слышать. имеется в виду не качество приёма звука, а способность к его анализу – воспринимать речь компьютеры умеют и сегодня. но теперь им предстоит улучшить этот навык, научиться улавливать тончайшие интонации, расшифровывать звуки, издаваемые животными. такая система сможет объяснить родителям, отчего плачет их грудной ребёнок. и дело тут не ограничивается только общением — на основе анализа издаваемых звуков компьютер сможет о скором возникновении поломки у того или иного оборудования. ожидается также появление возможности передачи тактильных ощущений. а это может стать основой для настоящей революции в деле онлайн-продаж. ведь товар можно будет не только внимательно рассмотреть со всех сторон, но и предварительно «пощупать». мобильные устройства просто невозможно оснастить экранами с большими диагоналями, а использование проекционного оборудования удобно далеко не всегда. но можно будет задействовать, например, так называемые виртуальные ретинальные мониторы (vrd), когда изображение проецируется прямо на сетчатку глаза. в таком случае пользователю будет казаться, что изображение «подвешено» перед ним в воздухе. при этом если изображение проецируется на один глаз, то можно будет видеть его одновременно с реальными объектами. проецирование же на оба глаза позволит создавать реалистичные и объёмные изображения. важно и то, что использование vrd позволит заметно снизить нагрузку на батарею устройства.и завершиться развитие интерфейсов может непосредственной связью между электроникой и человеческим мозгом. и для этого не обязательно нужно будет вживлять чип под кожу. что же касается внешнего вида компьютеров будущего, то тут остаётся лишь строить предположения, чем активно занимаются футурологи. одни мечтают о вживлённых под кожу чипах, другие скорого появления компьютеров-браслетов, возможности которых будут выше самых лучших современных десктопов. но, как говорил станислав лем, «будущее всегда выглядит иначе, чем мы себе его представляем». так, ещё в середине прошлого века мало кто мог представить себе массовое распространение тех же планшетов. ясно лишь одно — системы будущего будут становиться всё меньше, при значительном увеличении производительности и расширении возможностей. что же касается скорости внедрения всех этих достижений, то происходить это будет постепенно. и дело тут в страшной силе человеческой привычки. возможности всего нового в полной мере всегда способны оценить только следующие поколения, предыдущим приходится только приспосабливаться.
fymukham
27.11.2020
Const mm = 30; var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer; begin write('введите число строк матрицы: '); readln(m); randomize; writeln(#13#10, 'исходная матрица'); for i : = 1 to m do begin for j : = 1 to m do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; { *** 1 *** } writeln('*** элементы главной диагонали ***'); for i : = 1 to m do write(a[i, i]: 4); writeln; writeln('*** элементы побочной диагонали ***'); for i : = m downto 1 do write(a[i, m - i + 1]: 4); writeln; { *** 2 *** } s : = 0; for i : = 1 to m - 1 do for j : = i + 1 to m do s : = s + a[i, j]; writeln('сумма элементов, лежащих выше главной диагонали: ', s); end. тестовое решение: введите число строк матрицы: 10 исходная матрица -8 15 22 40 6 46 -37 35 -45 -5 41 22 45 17 -19 -14 50 -11 43 -10 27 20 -45 -35 27 -27 25 3 34 6 37 5 38 -36 32 -18 11 -41 44 46 35 24 -38 -18 1 28 -25 -25 -5 36 20 33 37 -32 -35 23 9 7 -38 -18 -29 10 -50 0 9 -15 34 30 35 50 26 40 -5 48 5 -47 7 24 14 50 49 -1 -43 49 36 -47 18 20 49 -41 24 -47 47 12 25 -26 24 12 24 -35 *** элементы главной диагонали *** -8 22 -45 -36 1 23 34 24 49 -35 *** элементы побочной диагонали *** 24 -1 -5 0 -35 28 11 3 43 -5 сумма элементов, лежащих выше главной диагонали: 392
var
s: string; //текст записки
i: integer; //переменная для цикла
begin
writeln('введите текст записки');
readln(s); //вводим текст записки
for i: = length(s) downto 1 do {length(s) - это функция, которая определяет длину строки s; мы записываем текст записки посимвольно, начиная с последнего символа и заканчивая первым}
write(s[i]);
end.
отметь решение, как лучшее)