1)
var
a,b,c,d:real;
begin
readln(a,b,c);
d:=a;
a:=c;
c:=b;
b:=d;
writeln(a,' ',b,' ',c);
end.
<span>
2)
var
a,b,c:real;
begin
readln(a,b,c);
writeln(c,' ',a,' ',b);
end.<span>
</span>
</span>
Неважно, какой именно шар достали, важно, что выбрали один из 64 возможных. Поскольку 64 = 2⁶, информации в таком сообщении <u>6 бит.</u>
1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>
Var ar:array of integer;
max,i,n,j:integer;
begin;
max:=-2147483648; //нижняя граница integer
writeln('Введите размерность массива:'); //массив всегда приятнее
readln(n);
setlength(ar,n+1); //задали размерность динамического массива
for i:=1 to n do
begin;
write('Введите ',i, ' элемент массива:');
readln(ar[i]);
end;
for i:=1 to n do
for j:=1 to n do
if max<ar[i]*ar[j] then max:=ar[i]*ar[j];
writeln('Result:',max);
<span>end.</span>
Var
n,i,a:integer;
s:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
s:=s+a;
end;
s:=s/n;
writeln(s);
<span>end.</span>