Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>
Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
<span>4) F:\Школа\Столовая\Обед\Меню.doc
Файл хранился в "Столовой", после в ней создали "Обед". Получилось </span>F:\Школа\Столовая\Обед
и вот сюда поместили Меню.doc
Карта города представляет город
Структура документа (в Word) представляет документ
Схема этажа для эвакуации представляет этаж здания
Содержание книги представляет книгу
Герб государства представляет дух и идею этого государства
<span>a = int(input("a="))
b = int(input("b="))
c = int(input("c="))
d = int(input("d="))
print("2*(",a,"^2-",b,"^2) = ",2*(a^2-b^2))
print('(',a,'+',b,')*(',c,'+',d,')=',(a+b)*(c+d))
print('(2*',a,'+',b,')/',c,'-2*',d,'=',(2*a+b)/c-2*d)</span>