1) r=187,5
a=9
d=63
2) var a,b,c,d,e:integer;
sr:real;
begin
writeln('Оценка за первый опрос');
read(a);
writeln('Оценка за второй опрос');
read(b);
writeln('Оценка за третий опрос');
read(c);
writeln('Оценка за четвертый опрос');
read(d);
writeln('Оценка за пятый опрос');
read(e);
sr:=(a+b+c+d+e)/5;
writeln('Среднее значение равно ',sr);
end.
3)var a,b,d, dengi,ostatok: integer;
begin
writeln('Количество денег у человека');
read(dengi);
writeln('Стоимость перчаток');
read(a);
writeln('Стоимость портфеля');
read(b);
writeln('Стоимость галстука');
read(d);
ostatok:=dengi-a-b-d;
writeln('Остаток от изначальной суммы равен ',ostatok);
end.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumD(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
a:=a.OrderBy(x->x).OrderBy(x->SumD(x)).ToArray;
a.Println;
end.
<u>Пример</u>
n= 30
632 411 647 143 933 205 451 16 213 479 106 939 299 315 566 428 306 758 495 927 101 301 599 969 368 180 24 124 739 635
101 301 24 213 411 16 106 124 205 143 180 306 315 451 632 428 635 933 368 566 647 495 927 739 299 479 758 939 599 969
1/ чем больше пикселей на изображении, тем оно качественнее Ответ в)
2/ первое расширение - программы архиватора, второй -текстовый (Word); третий-Блокнот; четвертый - Paint Ответ d)
3/ Ответ с)
Пишем поддельный вирус, открывающий «бесконечные» окна<span><span>1Откройте блокнот. Пакетные (.BAT) файлы содержат команды для компьютера в текстовом виде. Для того, чтобы написать BAT-файл, не нужен специальный редактор - достаточно Блокнота из стандартного набора программ Windows. Блокнот можно найти в меню «Пуск» или в подменю «Стандартные». Открыть Блокнот можно также, нажав сочетание клавиш Win+R, в текстовом поле появившегося диалогового окна набрать «notepad» и нажать Enter.</span><span>2Наберите «@echo off», а затем, на новой линии «CLS». По умолчанию BAT-файлы открывают окно командной строки и выводят исполняемые команды. Команды «@echo off» и «CLS» предотвращают появление команд в окне командной строки, делая причину шутки невидимым для жертвы.</span><span>3Напишите команды для открытия множества (или бесконечного количества) окон. Теперь наступило время написать последовательность команд, исполняя которые, ваш поддельный вирус откроет много окон разных программ один раз или будет отрывать эти окна бесконечно. Важно знать, если бесконечно открывается очень много окон, компьютер в конце концов может зависнуть. Читайте далее о том, как сделать оба вида «вируса»:<span><span>Чтобы открыть определенное количество окон, начните новую строку и наберите в Блокноте следующую команду: start (название программы). Вместо фразы в скобках поставьте название программы в вашем компьютере или или полное имя исполняемого файла. Эта команда дает инструкцию компьютеру открывать окно указанной программы. Например, start iexplore.exe откроет окно Internet Explorer. Повторите эту команду «start» столько раз, сколько захотите, и ваш «вирус» откроет окно столько раз, сколько вы укажете. Вот несколько программ которые можно ввести после команды «start»:<span>iexplore.exe - интернетcalc.exe - Калькуляторnotepad.exe - Блокнотwinword.exe - Microsoft Word</span></span><span>Чтобы открыть бесконечное количество окон, сначала начните новую строку и наберите :A, включая двоеточие. На следующей строке наберите start iexplore.exe (или другую программу). И, наконец, строкой ниже наберите goto A. Эта последовательность команд заставляет компьютер открывать окно Internet Explorer (или любой другой программы), возвращаться к месту непосредственно перед открытием окна, а затем сразу же открывать новое окно, пока окно командной строки не будет закрыто или компьютер не зависнет.</span></span></span><span>4Напишите в «вирусе» сообщение. Для устрашающего эффекта можно добавить в «вирус» сообщение, которое заставит пользователя думать, что с его/ее компьютером что-то не так. Чтобы показать сообщение, начните новую строку и наберите echo Ваше сообщение. Затем с новой строки наберите pause. Команда «pause» остановит выполнение «вируса» после появления сообщения.<span>Чтобы ваша шутка была правдоподобной, напишите сообщение, похожее на настоящие сообщения об ошибках, например: Fatal Error. C:// directory corrupted.</span></span><span>5Сохраните текст как пакетный файл. Когда закончите, выберите File > Save As..., а затем укажите расширение файла «.bat» (например, «pinball.bat»). В выпадающем списке «Тип файла» должно быть выбрано «Все файлы». Сохраните ваш файл где нибудь в компьютере.</span><span>6Заставьте пользователя открыть файл. Чтобы ваша шутка заработала, нужно сделать так, чтобы кто-то запустил ее. Этого можно добиться разными способами. Один из самых работающих - создать ярлык для своего пакетного файла и изменить его иконку Method_Four:_Change_Shortcut_Icons create a shortcut of your batch file, then change its icon на что-то, чем пользователь действительно пользуется, а затем изменить название ярлыка, чтобы оно соответствовало иконке. Откиньтесь на спинку кресла и наблюдайте за результатами из удобного места!</span></span>
