Надо из 2 литрового сосуда налить 6 раз в 11 литр. сосуд воды . и во 2 сосуде останется 1литр
2 - зрения. 90% информации мы получаем визуально, если не ошибаюсь)
X - исследуемое число
изменяется от 16 до 16*16/2-1=127
к - счетчик
а - младший знак 16-ричной записи числа х
b - старший знак 16-ричной записи числа х
c - младший знак 16-ричной записи числа 2х
d - старший знак 16-ричной записи числа 2х
k:=0
цикл по х от 16 до 127
{
b:= целое(х/16)
a:=x-16*b
d:= целое(2*х/16)
c:=2*x-16*b
если a+b = c+в то k:=k+1
}
ответ к
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>
' GCD - функция, которая принимает два числа, для которых нужно найти НОД
' К посту приложена фотография с блок-схемой
Function GCD(m As Integer, n As Integer) As Integer
m = Abs(m)
n = Abs(n)
For i = 1 To n * m
If m Mod i = 0 And n Mod i = 0 Then
GCD = i
End If
Next
End Function