procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
19. 1)8/2 =4
4/2=2
2/2=1 ⇒12
12/2=6
Ответ : 6
2) 12
12/2=6
6/2=3
32
32/2=16
Алгоритм из 1 в 16: 12212
20.
После выполнения алгоритма 3241 Робот окажется в клетке В.
Ответ : В
74=1001010
121=1111001
2014=11111011110
Получается, 3- чашки кофе, это 15 мин.
<span>N становится равно 2, после второй – 3, после третьей – 4. -9
</span>20-3=17
Крч у меня не хватает времени расписать :D
У меня получилось 1ч. 28 мин.
var
a, i, NegativeSum, EvenCount : integer;
begin
EvenCount := 0;
NegativeSum := 0;
for i := 1 to 10 do
begin
read (a);
if not Odd(a) then
inc(EvenCount);
if (a < 0) then
NegativeSum := NegativeSum + a;
end;
Write(EvenCount - NegativeSum)
end.