program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
Значение 3 показывает, что число трехзначное.
Чтобы записать тремя цифрами a, b, c минимальное число, надо расставить их по возрастанию.
Положим a=1 (меньше не бывает), тогда b+c=17-1 или b+c=16.
16 = 8+8 = 7+9.
Искомое число 179.
<span>Прочитав описание в виде текста можно узнать новые сведения значит Текст является описанием.
при описании объекта в виде текста отражаются не все свойства а только предмет и его признаки.
</span>
Var bak:intager;
readln(bak);\\вбиваем требуемое кол-во минут
<span>/*каждую минуту кол-во бактерий увеличивается вдвое, т.к. вначале мы имеем всего 1 бактерию, то просто умножаем кол-во минут на 2 */
</span>bak:=bak*2
writeln(bak)
readln;
end.
Текстовые файлы:
txt, rtf,doc,docx
графические файлы:
png,jpeg,jpg
видео:
avi,mp4,mpeg
Медиафайл - <span>содержит аудио, видео, графическую или текстовую информацию</span>