201/1024=0,196 //Переводим в Мб
500-0,196=499,804 мб
Ответ:499,804 Мбайт
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
<u>Пример</u>
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
<u>№2</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
<u>№3</u>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
<u>Пример</u>
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2
Код для проверки
def Avtomat(chislo)
s = chislo.to_s
if s.length == 4
s = s[0..-2] + "1"
end
if s.length == 3
s = (2*(s[0].to_i)).to_s + s[1..-1]
end
sym = [9,0,1,2,3,4,5,6,7,8]
s_new = ""
for k in 0..s.size - 1
s_new += sym[s[k].to_i].to_s
end
return s_new.to_i
end
for i in 100..9999
r = Avtomat(i)
p [i,r] if [159, 261, 1916, 1120, 820, 105, 5100, 9410].include?(r)
end
Вывод
[116, 105]
[160, 159]
[616, 105]
[660, 159]
[1930, 820]
[1931, 820]
[1932, 820]
[1933, 820]
[1934, 820]
[1935, 820]
[1936, 820]
[1937, 820]
[1938, 820]
[1939, 820]
[2230, 1120]
[2231, 1120]
[2232, 1120]
[2233, 1120]
[2234, 1120]
[2235, 1120]
[2236, 1120]
[2237, 1120]
[2238, 1120]
[2239, 1120]
[6210, 5100]
[6211, 5100]
[6212, 5100]
[6213, 5100]
[6214, 5100]
[6215, 5100]
[6216, 5100]
[6217, 5100]
[6218, 5100]
[6219, 5100]
В перечисленное не попали числа <span>261 1916 9410
Но если брать что "</span>Автомат получает на вход трёхзначное десятичное число<span>", т.е 4 значные не подаются на вход то не войдут числа
</span><span>261 1916 1120 820 5100 9410 </span>
.txt - Это формат текста, состоящего из любых символов.
.rtf - Это формат документов, внутри могут быть как текст, так и картинки.
