Pascal составить программу, которая находит в таблице трехзначные числа кратные 7 и уменьшает их на 10.

172

433

Посмотреть ответы 3

Ответы на вопрос:

mashka2511

Информатика

4,6(97 оценок)

Const n = 3; m = 4; var t: array[1..n,1..m] of integer; i,j: integer; begin randomize; writeln('было: '); for i: = 1 to n do begin for j: = 1 to m do begin t[i,j]: =random(3000); write(t[i,j]: 6,' '); if (99 < t[i,j])and(t[i,j]< 1000)and(t[i,j] mod 7 = 0) then t[i,j]: =t[i,j]-10; end; writeln end; writeln('стало: '); for i: = 1 to n do begin for j: = 1 to m do write(t[i,j]: 6,' '); writeln end; end. было: 2280 893 1825 21 491 97 666 402 1961 2639 1873 1069 стало: 2280 893 1825 21 491 97 666 402 1961 2639 1873 1069

Змей19

Информатика

4,7(49 оценок)

Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j: integer; begin for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(1000); write(a[i,j]: 4); end; writeln; end; for i: =1 to n do for j: =1 to m do if (a[i,j] mod 7=0)and(a[i,j]> 99)and(a[i,j]< 1000) then a[i,j]: =a[i,j]-10; writeln('new: '); for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 4); writeln; end; end. пример 889 188 17 186 772 394 121 406 679 936 20 147 868 691 450 525 73 575 232 416 new: 879 188 17 186 772 394 121 396 669 936 20 137 858 691 450 515 73 575 232 416

martin37

Информатика

4,8(85 оценок)

2компьютерные вирусы являются программами, которые могут "размножаться" и скрытно внедрять свои копии в файлы, загрузочные секторы дисков и документы. активизация компьютерного вируса может вызывать уничтожение программ и данных. разнообразны последствия действия вирусов; по величине вредных воздействий вирусы можно разделить на: неопасные, влияние которых ограничивается уменьшением свободной памяти на диске, графическими, звуковыми и другими внешними эффектами; опасные, которые могут к сбоям и зависаниям при работе компьютера; опасные, активизация которых может к потере программ и данных (изменению или удалению файлов и каталогов), форматированию винчестера и так далее. по "среде обитания" вирусы можно разделить на файловые, загрузочные, макровирусы и сетевые. файловые вирусы. файловые вирусы различными способами внедряются в исполнимые файлы (программы) и обычно активизируются при их запуске. после запуска зараженной программы вирус находится в оперативной памяти компьютера и является активным (то есть может заражать другие файлы) вплоть до момента выключения компьютера или перезагрузки операционной системы.при этом файловые вирусы не могут заразить файлы данных (например, файлы, содержащие изображение или звук).профилактическая защита от файловых вирусов состоит в том, что не рекомендуется запускать на выполнение файлы, полученные из сомнительного источника и предварительно не проверенные антивирусными программами. загрузочные вирусы. загрузочные вирусы записывают себя в загрузочный сектор диска. при загрузке операционной системы с зараженного диска вирусы внедряются в оперативную память компьютера. в дальнейшем загрузочный вирус ведет себя так же, как файловый, то есть может заражать файлы при обращении к ним компьютера.профилактическая защита от таких вирусов состоит в отказе от загрузки операционной системы с гибких дисков и установке в bios вашего компьютера защиты загрузочного сектора от изменений. макровирусы. макровирусы заражают файлы документов word и электронных таблиц excel. макровирусы являются фактически (макросами), которые встраиваются в документ.после загрузки зараженного документа в приложение макровирусы постоянно присутствуют в памяти компьютера и могут заражать другие документы. угроза заражения прекращается только после закрытия приложения.профилактическая защита от макровирусов состоит в предотвращении запуска вируса. при открытии документа в приложениях word и excel сообщается о присутствии в них макросов (потенциальных вирусов) и предлагается запретить их загрузку. выбор запрета на загрузку макросов надежно защитит ваш компьютер от заражения макровирусами, однако отключит и полезные макросы, содержащиеся в документе. сетевые вирусы. по компьютерной сети могут распространяться и заражать компьютеры любые обычные вирусы. это может происходить, например, при получении зараженных файлов с серверов файловых архивов. однако существуют и специфические сетевые вирусы, которые используют для своего распространения электронную почту и всемирную паутину. интернет-черви (worm) - это вирусы, которые распространяются в компьютерной сети во вложенных в почтовое сообщение файлах. автоматическая активизация червя и заражение компьютера могут произойти при обычном просмотре сообщения. опасность таких вирусов состоит в том, что они по определенным датам активизируются и уничтожают файлы на дисках зараженного компьютера профилактическая защита от интернет-червей состоит в том, что не рекомендуется открывать вложенные в почтовые сообщения файлы, полученные из сомнительных источников.профилактическая защита от скрипт-вирусов состоит в том, что в браузере можно запретить получение активных элементов на локальный компьютер.