Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.
Скинь рисунок, тогда решу, а без рисунка смысла нет
Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],'; ');
end;
writeln;
write('Искомые номера: ');
for i:=n downto 2 do
if a[i]>a[i-1] then
begin
k:=k+1;
write(i,'; ');
end;
writeln;
writeln('Количество элементов: ',k);
<span>end. </span>
Так как числа в правой колонке записаны в одной и той же системе счисления, то и в левой, следуя формальной логике, можно предположить, числа находятся также в одной и той же системе счисления X.
Рассмотрим первые две строки:
В которых видно, что 4 и 6 записаны как двузначные числа. Если система счисления X >= 4, то число было бы однозначным. Значит, X < 4.
Если X = 2, то 4 - трехзначное число 100, что нам не подходит. Остаётся один вариант. X = 3. Но если перевести 4 в систему 3, то получится 11. Если теперь посмотреть на вторую строку, можно удивиться результату 6 = 4.
ак как подобное невозможно, делаем вывод, что не существует такой системы счисления X, в которой выполнялись бы первые два условия.
Сбор - 1.Взимаемые или собранные за что-нибудь или на что-нибудь деньги. 2.<span>Кратковременное пребывание военнообязанных в распоряжении военного ведомства для обучения
Хранение - </span><span> соглашение, процесс, подразумевающий под собой обязательство сохранить и впоследствии возвратить владельцу переданную на </span>хранение <span>вещь
Обмен - </span><span> акт получения объекта с передачей чего-либо взамен
Обработка - </span><span>воздействие на объект с целью придать ему новые свойства; результат такого действия
Накопление - </span><span>Накопленная сумма, количество чего-нибудь
Выдача - </span>предоставление<span>, </span><span>обеспечение))</span>