12) var A: array[1..7] of integer;
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.
13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.
Ответ:
А) БАГВ
Б) БВГА
Объяснение:
Ip адрес состоит из 4-х чисел, разделённых точками, каждое из чисел должно находиться в диапазоне от 0 до 255. =>
А)
Начинаем с [2.17] после [17] мы должны поставить ещё число либо это будет концом ip адреса, ищем то, что мы могли бы поставить после [2.17 16] - не подходит т.к. получится [1716], а это больше 255, [.65] тоже не подходит по этой же причине. Остаётся только [8.121] подставляем [2.17/8.121] получается [178] - это число находится в диапазоне от 0 до 255 оставляем так. Нам остаётся подставить ещё 2 фрагмента. Берём [.65] и подставляем в начало [.65/2.178.121] полуяви число [.652] оно не подходит т.к. больше 255, значит подставляем [.65] в конец и получаем [2.178.121.65] в конце ip адреса не обязательно должно стоять 4-х значное число. У нас осталось [16] подставляем в начало и получаем [162.178.121.65] это будет готовым ip адресом.
Код для проверки
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>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ReadArrInteger('Введите 5 целых чисел',5);
Writeln('Разница между min и max: ',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
Введите 5 целых чисел 8 14 -5 0 7
Разница между min и max: 19
Чтобы решать такие задачки начинай решение с конца. К искомому числу пробуй применять обратные операции (Не *2 +3, а /2 -3). Какие=то будут сразу отпадать, какие-то будут более выгодными на данном шаге.
1. 3 * 2 = 6
2. 6 * 2 = 12
3. 12 * 2 = 24
4. 24 + 3 = 27
5. 27 * 2 = 54
1. 3 + 3 = 6
2. 6 + 3 = 9
3. 9 * 2 = 18
4. 18 * 2 = 36
5. 36 * 2 = 72
6. 72 + 3 = 75