Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Номер 3
program ggg;uses GraphABC;var r: integer;beginwriteln('введи число');readln(r);writeln(r div 60:0:2,'минут',r-60,'секунд');end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;
end.
<u>Пример</u>
n= 13
-10 44 17 13 50 49 -7 -46 -36 14 35 42 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26
2) а) Все файлы, у которых имя состоит из 3 букв, причем 1 буква a, 2 буква любая, 3 буква b, а расширение строго ax.
б) Имя любое, а расширение состоит из 2 букв, 1 буква любая, а 2 буква b.
в) Имя строго cb, а расширение любое.
3) Ярлык – это средство быстрого доступа к любому объекту, краткий путь к нему. Как правило, этот файл имеет расширение .lnk и прямую ссылку на ресурс компьютера: принтер, локальный диск, файл, папку, веб-страницу, программу. Размещая на рабочем столе ярлык, вы формируете специальную связь, которая позволяет сократить занимаемый объем оперативной памяти.
Ответ: а) т.к. первый бит задает знак(0 +, 1 -), и соответственно остальные биты по возрастанию увеличивают число в соответствующую сторону знака.