Молодец! .....................................
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.
//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>
<span>
При работе с файлами не следует:
Удалять файл, точно не выяснив, обязательно ли это следует делать.
Давать файлу имя, которое не поясняет его содержание.
Сохранять файл в той папке, где его потом будет трудно найти.
Удалять или перемещать файлы, находящиеся в папках прикладных программ - это может привести к тому, что программы перестанут работать.</span>